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REM * 
4 
? : 
‘ IDENTIFICATION 
i) 
iy PRODUCT CODE: AC-8402D-MC 
\¢ PRODUCT NAME: CZCDADO CD11 CARD READER DIAG 
13 PRODUCT DATE: MAR 1980 
1g MAINTAINER: DIAGNOSTIC ENGINEERING 
18 
19 
$1 
$% THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT. 


7 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
COPYRIGHT (C) 1972, 1980 
DIGITAL EQUIPMENT CORPORATION 
MAYNARD, MASSACHUSETTS 01754 
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35 
36 
37 
38 
39 
re 1.0 ABSTRACT 
4 THIS PROGRAM IS TO BE USED AS A CARD READER DIAGNOSTIC FOR 
4 THE PDP-11 WITH THE CD11 CARD READER INTERFACE TO THE 
4G DOCUMATION M1000 OR M M1200 PUNCHED CARD READER. IT TESTS ALL 
45 LOGIC FUNCTIONS OF THE CARD READER, AND INCLUDES AN 
46 EXERCISER FOR ALPHANUMERIC AND BINARY TEST DECKS. SEPARATE 
4/ STARTING ADDRESSES ALLOW THE ERROR SENSING FUNCTIONS OF THE 
48 DOCUMATION M 1000 AND M1200 READER TO BE CHECKED. ANOTHER 
49 STARTING # >XESS TESTS SPECIAL DECKS WHICH HAVE ALL COLUMNS 
50 AND CARDS ~\.CHED IDENTICALLY, TO AID IN DIAGNOSING SPECIAL 
24 PROBLEMS. 
5 
2¢ 2.0 REQUIREMENTS 
56 
LA 2.1 EQUIPMENT 
59 PDP-11/ STANDARD COMPUTERS 


60 
61 

62 
63 
64 
65 
66 
67 
68 
69 
70 
74 
75 
76 
77 
78 
79 
80 
81 

82 
83 
84 
85 
86 
87 
88 
89 
90 


CD11 CARD READER 


2.2 TEST DECKS 
MAINDEC-89-D2A1-C et” TEST DECK 
MAINDEC~89-D2A2~-C BINARY TEST DECK 
SPARE CARDS FOR THE ERROR FUNCTION TEST 
2.3 STORAGE 
THE ROUTINE USES MEMORY 0 TO 16100. 


3.0 LOADING PROCEDURE 
PROCEDURE FOR NORMAL ABSOLUTE TAPES SHOULD BE FOLLOWED. 


4.0 STARTING PROCEDURE 


4.1 CONTROL SWITCH SETTINGS 
BASIC SWITCH REGISTER SETTINGS ARE: 


=1 OR UP---HALT ON ERROR 
SW14=1 OR UP---SCOPE LOOP 
1 OR UP---INHIBIT PRINT OUT 
1 OR UP---INHIBIT TRACE TRAPPING 
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91 SW11=1 OR UP---INHIBIT SUB-PROGRAM ITERATION 

3 SWO7=1 OR UP---LOOP THRU THE INSTRUCTION TEST PORTION 

94, 

95 

% 

98 (NOTE THAT THE PROCESSOR MAY HANG 
9 LEGITIMATELY WHEN THE INPUT HOPPER GOES EMPTY 
100 IF SW7 IS SET) 

101 SWO6=1 OR UP=---RETURN TO THE BEGINNING OF THE INSTRUCTION 
4 TEST WHEN CONTINUING FROM ONE DECK TO ANOTHER 
10 SWO5=1 OR UP=--HALT BETWEEN TEST DECKS 

104 (SEE 5.2.1 FOR EXPLANATION OF SwW5=0) 

105 ~~ SWO4=1 OR UP---RUN THE BINARY TEST DECK 

106 SWO3=1 OR UP=--RUN IN IMAGE MODE ONLY 

24 SwWO2=1 OR UP=--RUN IN PACKING MODE ONLY 
109 
ity 4.2 STARTING ADDRESSES 
¢ 200 = INSTRUCTION AND DATA TEST 

17 210 = ERROR FUNCTION TEST (M1000) 

114 220 = SINGLE SUBTEST LOOP 

115 240 = READ SINGLE DATA PATTERN TEST ° 

118 250 = ERROR FUNCTION TEST (M1200) 
118 
1 4.3 PROGRAM AND/OR OPERATOR ACTION 
121 
132 4.3.1 INSTRUCTION AND DATA RELIABILITY TEST (SA 200) 
13 LOAD PROGRAM INTO MEMORY. 

125 OAD ONE TEST DECK IN THE CARD READER INPUT HOPPER. 

1s8 PRESS RESET ON THE CARD R 2 

1 SET SWITCH REGISTER TO STARTING ADDRESS. 

128 LOAD ADDRESS. 
! SET ah a (SEE 4.1)-ALL DOWN FOR WORST CASE, ALPHA TEST 
131 PRESS START. 

138 WHEN THE INPUT HOPPER IS EMPTY THE PROGRAM WILL HANG WAITING 
1 FOR AN INTERRUPT FROM THE CARD READER. LOAD ONE OR 
134 MORE TEST DECKS INTO THE INPUT HOPPER. PRESSING 
135 "RESET’’ ON THE CARD READER SHOULD CAUSE PROGRAM 
136 EXECUTION TO RESUME. 

137 THIS ENTIRE SEQUENCE IS NECESSARY TO RUN THE FULL TEST ON 
138 THE CARD READER. 

120 
pe 4.3.2 ERROR FUNCTION TEST ‘SA 210 OR SA 250) 

168 a 210 FOR M1000 READER AND 250 FOR m™i200 
145 LOAD A FEW SPARE CARDS INTO THE INPUT HOPPER (DO NOT LOAD A 
146 TEST DECK-THIS IS DESTRUCTIVE!) 
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4.3.3 


4.3.4 


5.0 


5.1 


PRESS "RESET’’ ON THE CARD READER. 
LOAD THE aa ADDRESS, THEN SET THE DESIRED SWITCH 


OPT . 
PRESS STARi. 


FOLLOW THE INSTRUCTIONS AS THEY ARE PRINTED OUT. 


SINGLE SUBTEST LOOP (SA 220) 
LOAD CARDS (SPARE CARDS OR A TEST DECK) INTO THE INPUT 


PRESS ‘RESET’’ ON THE CARD READER. 

LOAD THE STARTING ADDRESS. 

PRESS START. 

AT THE 1ST HALT; LOAD THE STARTING ADDRESS OF THE DESIRED 
TEST (ADDRESS OF THE SCOPE INSTRUCTION AT THE 
BEGINNING OF THE TEST.) 

Ae CONTINUE. 

HE 2ND HALT SET THE SWITCH REGISTER OPTIONS (BIT 11 
MUST=0). 


PRESS CONTINUE. 


SINGLE DATA PATTERN TEST (SA 240) 


A SPECIAL DECK (1 OR MORE CARDS) MUST BE PUNCHED TO RUN THIS 
TEST. | ANY DATA PATTERN MAY BE USED, BUT IT MUST BE 
IDENTICAL IN ALL 80 COLUMNS OF ALL THE CARDS (I.E. 
ONLY ONE PIECE OF DATA). 

LOAD THIS PREPARED DECK ies THE INPUT HOPPER. 

PRESS CARD READER ‘RESET’ 

LOAD SA 240. 

PRESS START. 

AT THE INITIAL HALT SET THE CARD IMAGE OF THE DATA PATTERN 
USED IN SW11-SWO00. 

PRESS CONTINUE. 

ON THE SECOND HALT LOAD THE DESIRED SWITCH SETTINGS. 

PRESS CONTINUE. 


WHEN star READER RUNS OUT OF CARDS IT WILL RING THE 

RELOADING THE DECK AND PRESSING ‘RESET'’ ON THE CARD READER 
WILL CONTINUE THE TEST. 

OPERATING PROCEDURE 

OPERATIONAL SWITCH SETTINGS 


AT SA 200 (INSTRUCTION AND DATA RELIABILITY TEST) 
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SEE 4.1 
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5.1.2 AT SA 210 OR SA 250 (ERROR FUNCTION TEST FOR CD11) 
SW14=1 TO LOOP THRU THE CURRENT SUBTEST 
SW15=1 TO HALT ON ERROR 

Sates AT SA 220 (SINGLE SUBTEST LOOP) 


1ST HALT - LOAD STARTING ADDRESS OF DESIRED TEST 
=~ HALT - SET SR OPTIONS (BIT 11 MUST=0) 


220 4.1 FOR SR OPTIONS 

221 

$55 5.1.4 AT SA 240 (SINGLE DATA PATTERN TEST) 

285 1ST woe oe CARD-IMAGE OF THE DATA PATTERN IN 
227 2ND HALT~SET SR OPTIONS. 


SW15=1 TO HALT ON ERROR 


2 SWO3=1 TO TEST IMAGE MODE ONLY 

See SwO2=1 TO TEST PACKING MODE ONLY 

235 

Ste Dae SUBROUTINE ABSTRACTS 

236 

rata Sadel BEGIN (SA 200) 

239 THE INSTRUCTION TESTS ARE RUN FIRST, FOLLOWED BY THE DATA 
240 RELIABILITY TESTS ON THE REMAIN NING CARDS IN THE FIRST TEST 
241 DECK. AT THE END OF THE DECK THE BELL WILL RING, AND IF 
ra) og THE PROGRAM HALTS. IF SW5=0, PROGRAM ACTION DEPENDS 
24 THE ag OF TEST DECKS Re IF THERE ARE STILL 
ro) T PROGRAM WILL RUN THE DATA 
245 RELIABILITY TEST ON = neNTIRE DECK. IF THE INPUT “cs IS 
247 TESTS OF "OFFLINE RATIONS. AT THE END OF THESE TESTS, IT 
248 WAITS FOR THE CARD READER TO BE PUT BACK ON-LINE.  FURT 
249 CHECKS ARE MADE OF THE OFF-LINE TO ON-LINE OPERATIONS, AND 
250 THEN THE DATA RELIABILITY TEST IS RUN ON THE ENTIRE yee 
251 IF SW5=1, HITTING CONTINUE WILL RESUME PROGRAM OPERATION 
5 AFTER THE HALT. IF ALL OTHER SWITCHES WERE DOWN, FOR 
5 EXAMPLE, THE DATA RELIABILITY TEST WOULD THEN BE RUN ON THE 
See ogi ,DECK. THE OTHER SWITCHES AFFECT PROGRAM FLOW AS NOTED 
256 

257 


258 5.2.2 SCOPE 
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259 

so8 THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUBTEST IN_ THE 
1 INSTRUCTION SECTION. IT RECORDS THE STARTING ADDRESS OF 

$06 EACH SUB-TEST AS IT IS BEING ENTERED. IF A SCOPE LOOP IS 

264 

265 

567 

$e8 REQUESTED, IT WILL JUMP TO THE START OF THE SUBTEST THAT THE 
9 SCOPE LOOP IS REQUESTED FOR. IF SCOPE L IS __NOT 

270 REQUESTED, THERE WILL BE 1 ITERATION ON THAT SUBTEST BEFORE 

$f THE NEXT SUBTEST IS ENTERED. SWITCH 11 ON A 1 INHIBITS 
ie: ITERATION OF SUBTESTS. 

é 

274 

$2 5.203 HLT 

77 THIS SUBROUTINE PRINTS OUT THE LOCATION COUNTER AT THE TIME 

278 OF FAILURE. THE CONTENTS OF THE PROCESSOR STATUS REGISTER, 

AND THE CONTENTS OF THE CARD READER STATUS REGISTER. NO 

280 THAT THE LOCATION COUNTER WILL BE THE ADDRESS OF THE HLT 

281 PLUS TWO. 

282 

285 

See 5.2.4 TTRAP 

286 THIS ROUTINE ALLOWS THE TRACE BIT TO BE SET AFTER THE FIRST 

287 LOOP OF THE . THE TRACE BIT WILL BE SET ON ALTERNATE 

288 LOOPS OF THE INSTRUCTION AND DATA TEST UNLESS SwWi2 IS SET. 

289 THE FIRST INSTRUCTION EXECUTED UPON TRAPPING IS AN ‘RTI'’ 

290 WHICH RETURNS TO THE INTERRUPTED SEQUENCE. THIS CONTINUES 

$35 UNTIL THE END OF THE PROGRAM LOOP IS REACHED. 

293 Sete? TRAPCAT CHER 


THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION 0 
DESIGNED TO DETECT AND ISOLATE UNEXPECTED TRAPS AND 
INTERRUPTS TO THE TRAP AND INTERRUPT VECTOR AREA OF MEMORY. 


29% 
295 
296 
598 
299 EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS Of 
THE NEXT LOCATION. THE NEXT LOCATION IS LOADED WITH A HALT 
1 (000000). THUS AN ILLEGAL TRAP OR INTERRUPT WILL CAUSE A 
8 HALT AT THE TRAP LOCATION PLUS TWO. 
304 
305 
$07 


IF A HALT OCCURS IN THE TRAP OR INTERRUPT AREA, EXAMINE 
REGISTER SIX. IT WILL CONTAIN THE CURRENT STACK ADDRESS. 
THE CONTENTS OF THE CURRENT STACK ADDRESS IS THE VALUE 
THE LOCATION COUNTER WHEN THE TRAP OR INTERRUPT OCCURRED. 


308 

309 

$19 5.2.6 ERCD11 (ERROR FUNCTION TEST) 

$16 THE FIRST SUBTEST OF THE ERROR FUNCTION TEST (TESTA) CHECKS 
31 THE DATA LATE ERROR. THE REST OF THE SUBTESTS CHECK THE 
314 OPERATION OF THE VARIOUS ERROR SENSING FEATURES OF THE 











(_-_-_—_-_--O_o_o___-™ oOo: 


H 1 

CZCDADO CD11 CARD READER DIAG MACY11 30A(1052) 26-MAR-80 11:21 PAGE 7 

CZCDAD.P11 26-MAR-80 11:18 SEQ 0007 
315 DOCUMATION ™1000 AND ™1200 CARD READER. CARD READER 


OFF-LINE, INPUT HOPPER EMPTY, OUTPUT STACKER FULL, PICK 
ERROR, STACK ERROR, AND READ ERROR ARE CHECKED. 


bat pet pe 
o 


ro 


er Fs TESTX (SINGLE TEST LOOP) 


THIS ROUTINE ALLOWS A SINGLE SUBTEST 70 BE RUN CONTINUOUSLY 
FOR SCOPE LOOP PURPOSES. WHILE A SCOPE LOOP SWITCH OPTIONS 
EXISTS, IT REQUIRES THAT YOU ARE WITHIN THE TEST IN WHICH 
YOU WISH TO LOOP. IN SOME CASES (SUCH AS WITH INTERMITTENT 
FAILURES) THAT'S NOT EASY TO DO. THIS SUBROUTINE ALLOWS YOU 
TO LOAD THE ADDRESS OF ANY TEST FROM TEST1 THRU TEST22 AND 
a THRU TESTH AT THE HALT AND THEN GO DIRECTLY TO THAT 


wu 
We 


5.2.8 CKSAME (SINGLE DATA PATTERN TEST) 


THIS TEST IS DESIGNED TO AID IN THE DIAGNOSIS OF DIFFICULT 
DATA ERROR PROBLEMS AND FACILITATE SOME CARD READER 
rong gag ce CONTINUOUSLY READS CARDS WHICH HAVE ALL 


WwW 
wi 


ae 


wu 
Oo 


340 COL HED IDENTICALLY (AND ALL CARDS MUST BE 
341 IDENTICAL), CHECKING THE DATA AGAINST A PATTERN SET UP ON 
a$ THE SWITCHES INITIALLY. ANY ERRORS ARE PRINTED OUT. ALONG 
4 WITH A COUNT OF THE TOTAL NUMBER OF CARDS READ AND THE TOTAL 
MG NUMBER OF DATA ERRORS WHICH HAVE OCCURRED SINCE THE TEST WAS 
345 STARTED. 
es 
i 505 PROGRAM AND/OR OPERATOR ACTION 
50 
351 5,301 LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN IS_ WORST 
326 TESTING. A SINGLE ALPHANUMERIC DECK SHOULD BE RUN. 
35 THIS EXECUTES AN INSTRUCTION TEST FOLLOWED BY A_ DATA 
54 RELIABILITY TEST. AT THE END OF THE DECK CHECKS ARE MADE OF 
55 THE FLAG SETTINGS WHICH SHOULD BE AFFECTED, AND THE 
56 WAITS FOR AN INTERRUPT FROM THE R COMING BACK ON-LINE. 
57 AT THE END OF THE FIRST DECK THE OPERATOR, D LOAD ONE OR 
58 E DECKS INT T PRESS *RESET’* ON C 
59 READER. IF ARD READER IS WORKING PROPERLY, THE ENTIRE 
DECK WILL BE RUN THRU THE DATA RELIABILITY PORTION OF THE 
1 TEST. IF, AFTER READING 80 CARDS, THE INPUT HOPPER IS NOT 
EMP WILL CONTINUE TO THE NEXT DECK. SWITCH 


TY, THE PROGRAM 
OPTIONS MAY BE USED TO ALTER THIS FLOW AS NOTED IN SECTION 


Ww 


: 
33 
2 


S$. Sed TO GO DIRECTLY TO A SINGLE SUBTEST AND RUN IT_ CONTINUOUSLY, 
USE SA 220. AT THE FIRST HALT, SET THE SWITCH REGISTER TO 
THE STARTING ADDRESS OF THE DESIRED SUBTEST (I.E. THE 
ADDRESS OF THE SCOPE INSTRUCTION AT THE START OF THE TEST), 
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6.0 


6.1 


6.1.1 


6.1.2 


6.1.3 
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AND CONTINUE. AT THE SECOND HALT, SET THE DESIRED Sal Ts 
REGISTER OPTIONS AND CONTINUE (SW11 MUST BE = THE 
PROGRAM WILL CONTINUOUSLY LOOP THRU THE DESIRED StBTEST 
UNTIL SW11 IS SET OR we PROCESSOR IS HALTED. 


ERRORS 
ERROR PRINTOUT 


STANDARD PRINTOUT 


PRINTOUTS ARE IN A THREE-WORD FORMAT. THE FIRST IS THE PC+2 

THE DETECTED ERROR. THE SECOND IS THE CONTENTS OF THE 
PROCESSOR STATUS REGISTER WHEN THE ERROR WAS DETECTED. THE 
THIRD IS THE CARD READER STATUS REGISTER. 


DATA ERROR PRINTOUT 


THE HEADING IS PRINTED OUT ONCE PER TEST DECK. THE COLUMNS 
HAVE THE FOLLOWING SIGNIFICANCE: 


DECK suitch 6 ALPHANUMERIC OR SINARY, DEPENDING ON 
CARD =THE CARD NUMBER WHERE THE FAILURE OCCURRED (IN 


OCTAL) 
COLUMN =THE COLUMN NUMBER WHERE THE FAILURE OCCURED (IN 


OCTAL) 
PATTERN =THE CORRECT CARD DATA THAT SHOULD HAVE BEEN READ 
READ =WHAT WAS ACTUALLY READ INTO CORE 


DATA ERRORS NOT TRACED TO CARD READER HARDWARE INCLUDE: 


A. $WO4 NOT SET TO TYPE OF DECK USED 
B. CARD MISSING 
C. CARD DECK OUT OF PROPER SEQUENCE 
D. DAMAGED CARD 


SINGLE DATA PATTERN PRINTOUT 


THE SINGLE DATA PATTERN TEST PRINTS OUT A HEADING ONCE. THE 
COLUMNS HAVE THE FOLLOWING SIGNIFICANCE: 


COLUMN =THE COLUMN NUMBER WHERE THE FAILURE OCCURRED. 
READ =DATA THAT WAS ACTUALLY READ INTO CORE 
CARDS =THE TOTAL NUMBER OF CARDS (IN OCTAL) THAT HAVE 


BE STARTED. 
ERRORS =THE TOTAL NUMBER OF ERRORS DETECTED (IN OCTAL) 
SINCE THE TEST WAS STARTED. 





SEQ 0008 
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ERROR RECOVERY 


IN GENERAL, TEST FAILURES WILL PRINTOUT AN ERROR MESSAGE AND 
CONTINUE. IF THE ‘“SALT ON ERROR’ SWITCH IS SET, Ralf! 
CONTINUE WILL RECOVER. IF THE PROGRAM HANGS UP IN LOOP, 
THE ERROR IS LIKELY TO BE A SIGNAL WHICH WAS NEVER RECEIVED. 
IF A HALT OCCURS IN THE TRAP AND VECTOR AREA THE PROGRAM 
MUST BE RESTARTED. IF THE PROGRAM HALTS IN _ MAIN FLOW, 


RESTRICTIONS 


STARTING PROCEDURE 
NONE 


OPERATIONAL RESTRICTIONS 


COMBINED INSTRUCTION AND DATA RELIABILITY TEST (SA200) 


IF A STANDARD TEST DECK IS NOT BEING USED, SW7 MUST BE SET 
TO INHIBIT RUNNING THE DATA RELIABILITY PORTION OF THE og 
THE PROCESSOR MAY HANG WHEN THE INPUT HOPPER GOES EMPTY, 
THIS IS NOT TO BE REGARDED AS A FAILURE. 


WHEN USING THE STANDARD TEST DECKS, THEY MUST BE_ IN PROPER 


SEQUENCE AND IN GOOD CONDITION. IT IS A GOOD IDEA TO NUMBER 
THE CARDS IN EACH DECK AS SOON AS THE DECK IS RECEIVED. 


ERROR FUNCTION TEST (SA 210 OR SA 250) 


SEVERAL. ALSO, T 
nat oie PREPARED. THE "TEST WILL TYPE OUT A REQUEST FOR 
oF atte.” IT IS NEEDED. TO MAKE IT, TEAR ONE CORNER 


SINGLE DATA PATTERN TEST (SA 240) 


A SPECIAL DECK (ONE OR MORE CARDS) MUST BE PREPARED. ALL 
COLUMNS OF ALL CARDS ARE PUNCHED IDENTICALLY, USING A DATA 
PATTERN WHICH WILL TEST THE PROBLEM BEING DIAGNOSED. 


SEQ 0009 
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483 
484 
is 
487 
488 
489 8.0 MISCELLANEOUS 
490 
491 
“9 8.1 EXECUTION TIME 
494 NOT APPLICABLE 
495 
496 
497 8.2 CARD DECK DESCRIPTION 
498 
499 
rs 8.2.1 ALPHANUMERIC 
50 REFERENCE THE ALPHANUMERIC TABLE BEGINNING AT THE TAG ALPCD 
50 IN THE LISTING FOR THE IMAGE CODES PUNCHED FOR EACH OF THE 
504 UMNS OF THE FIRST CARD. THIS IS FOLLOWED BY THE TABLE 
505 OF THE PACKED FORM OF THE EACH SUCCESSIVE CARD IN THE DECK 
oe eT THE SAME SEQUENCE OF CODES ROTATED ONE COLUMN TO THE 
508 
509 
an 8.2.2 BINARY 
£16 REFERENCE THE BINARY DATA TABLE BEGINNING AT THE TAG BINCD 
51 IN THE LISTING FOR THE CODES PUNCHED FOR EACH OF THE 80 
514 COL THE 1ST CARD. AS WITH THE ALPHANUMERIC DECK EACH 
515 SUCCESSIVE CARD HAS THE SAME SEQUENCE OF CODES ROTATED ONE 
516 COLUMN TO THE LEFT, AND THE TABLE FOR PACKED DATA FOLLOWS IN 
517 HE SAME FASHION. 
518 
519 
5 ; 8.3 SPECIAL NOTES 
2 IF THE CARD READER GOES OFF-LINE BEFORE THE END OF A CARD, 
$34 BUSY REMAINS SET UNTIL THE CARD ACTUALLY CLEARS THE READER. 
525 


8.4 TESTING CD11°S WITH NON-STANDARD ADDRESSES 


BY SUBSTITUTING INTO THE LOCATIONS ‘“‘CDSi*', ‘‘CDCC’’, AND 
“CDBA’’ THE ADDRESSES OF THESE REGISTERS OF A CARD READER 
ASSIGNED NON-STANDARD 


Vin 
NO 


8.5 ECO HISTORY 
CHGD1 - MODIFIED ALPCD AND BINCD TABLES FOR CORRECT CARD 
COMPARISON PURPOSES. 


Ww 
Ww 


331 
33 
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CZCDADO CD11 CARD —_—— DIAG 


:DIAGNOSTIC FOR THE CD11 CAR 
: COPYRIGHT 1973, 
:PROGRAMMER: K 


READER 
1979 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


Fern FROM REV A TO REV B ) 


EN CHAPMAN 
SUB MALLICK 
(CHANGED FROM REV C TO REV DD 


LEN LORANGER 


; STARTING ADDRESSES ARE: 
200= 


SWITCH 


lita it PROCEDURE FOR THE INSTRUCTION AND DATA TEST: 


INSTRUCTION AND DATA TEST FOR THE CD11 
210=ERROR FUNCTION TEST OF CD11 (M-1000) 
220=SINGLE TEST LOOP 
240=READ SINGLE DATA PATTERN TEST 
250=ERROR FUNCTION TEST FOR CD11 (M-1200) 


REGISTER op ees: FOR THE INSTRUCTION AND DATA TEST ARE: 
SWO2=1 RUN IN DATA IMAGE MODE ONLY 
SWO3=1 RUN IN DATA PACKING MODE ONLY (IGNORED IF SWO2=1) 
SW04=1 FOR THE BINARY TEST DECK 
sw05=1 TO HALT AT THE END OF A STANDARD 80 CARD 
TEST DECK.(HITTING CONTINUE WILL START TESTING 
Te Tine Pe K IN ACCORDANCE WITH CURRENT 


SWR 

=0 TO CONTINUE FROM ONE DECK TO THE NEXT. 
AFTER THE LAST DECK IN THE HOPPER IS 
RUN, THE PROGRAM WAITS FOR THE CARD READER 
TO COME BACK ON-LINE.AND RUNS THRU 

A SERIES OF CHECKS OF OFF-LINE AND 
COMING ON-LINE OPERATIONS OF THE READER. 

Bug ' K ON-LINE AND THE 
, THE DATA TEST IS RESUMED. 
TRUCT ION ‘. DATA _ TEST 


RUN 
WHEN CONTINUING FROM ONE DECK TO THE NEXT 
Lk RUN ONLY THE DATA TEST ON EVERY rie ALY. THE FIRST 





ie TION 
(NOTE THAT IF PROGRAM FLOW IS ALLOWED TO ENTER THE 
DATA SUBTEST WHEN SW11 IS SET, DATA ERRORS a 
THE CARD COUNT 


0 SINCE WILL BE INCORRECT. 
SW12=1 TO INHIBIT TRACE TRAPPING 
SW13=1 TO INHIBIT PRINTOUT 
SW14=1 FOR SCOPE LOOP 
SW15=1 TO HALT ON ERROR 


LOAD TEST DECK IN CARD READER AND PRESS START’ ON THE CARD 
READER. IF THE DECK BEING USED IS NOT _A STANDARD TEST 
TRUCTION PORTION OF THE TEST CAN BE RUN. 
(SW7 MUST BE SET TO ONE TO INDICATE THIS). 
2. LOAD SA 200, THEN SET THE SWITCH REGISTER SWITCHES TO THE DESIRED 


SEQ 0011 


we eee 
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aon 
Nr 
on 

> 
~~ 
-—o 


595 . COMBINATION 

596 : a. a ‘START’’ ON THE CONSOLE 

597 ‘ 4. NOTE THAT RUNNING THE COMPLETE INSTRUCTION TEST 

598 ‘ REQUIRES THAT THE INPUT HOPPER MUST RUN OUT OF CARDS 
599 : AT THE END OF A TEST DECK AT LEAST ONCE. —_ THIS 
600 : OCCURS, THE PROCESSOR SHOULD CONTINUE TO RUN. LOADING 
601 : A DECK INTO THE INPUT HOPPER AND ere oSI NG ‘START’ ON THE CARD 
60 : READER SHOULD CAUSE THE BELL TO RING AND T 

60 ‘ READER TO RESUME READING CARDS. IF THIS DOES NOT OCCUR, 
pee ; IT IS A FAULT AND SHOULD BE FIXED. 

606 

607 ; SPECIAL SWITCH REGISTER SETTINGS FOR THE ERROR FUNCTION TEST: 

608 SW14=1 TO LOOP THRU THE CURRENT SUBTEST 

ret SW15=1 TO HALT ON ERROR 

61 


; OPERATING tr we: FOR THE ERROR FUNCTION TEST: 
1. LOAD A FEW Ears CARDS INTO THE INPUT HOPPER. 
2. PRESS ‘‘START'’ ON THE CARD READ 
3. LOAD THE SA, THEN SET THE DESIRED SWITCH OPTIONS. 
4. PRESS "START'’ ON THE E. 
5. FOLLOW THE INSTRUCTIONS AS THEY ARE PRINTED OUT. 


: SINGLE TEST LOOP (SA 220) HALTS TWICE: 

1ST ry - LOAD STARTING ADDRESS OF DESIRED TEST (7EST1 TO TEST 24) 
; 2ND HALT - SET SWR OPTIONS (BIT 11 MUST ) 
; THIS TEST USES TRACE TRAPPING WHERE APPLICABLE IF SW12 IS NOT SET 


sDESCR OF SINGLE DATA PATTERN TEST 
THIS TEST IS DESIGNED TO AID IN THE LOCATION OF DIFFICULT DATA ERROR 
PERHAPS HELP IN CARD READER ADJUSTMENTS. IT 


CONTINUOUSLY READS CARDS WHICH HAVE ALL COLUMNS PUNCHED OR MARKED 
IDENTICALLY, CHECKING THE DATA AGINST A PATTERN SET UP ON THE SWITCHES 
INITIALLY. ANY ERRORS ARE PRINTED OUT, ALONG WITH A COUNT OF THE TOTAL 
NUMBER OF CARDS READ AND THE TOTAL NUMBER OF DATA ERRORS WHICH HAVE 
OCCURRED SINCE THE TEST WAS STARTED. 


; OPERAT ING PROCEDURE FOR SINGLE DATA PATTERN TEST: 
1. LOAD TEST DECK OF IDENTICAL CARDS IN THE INPUT HOPPER, AND PUT 
THE CARD READE 


INE. 
2. LOAD SA 240, THEN PRESS ‘‘START’’ ON THE CONSOLE. 
3° AT THE INITIAL HALT SET THE CORRECT CARD-IMAGE 


Se Be Se Se Be Be 


AOAOAAAlO 
ee ed eed eed eed ed eed od 
WONOULSWwR oO 


Se eRe ER ERE O ROR 


637 DATA PATTERN IN SW11-SWOO, THEN PRESS CONTINUE. 

os 4. WHEN THE READER RUNS OUT OF CARDS IT WILL RING THE 
BELL. RELOADING THE DECK AND PRESSING “‘START’’ ON THE CARD 

oy READER WILL CONTINUE THE TEST. 

64 

es STATUS “e ware REGISTER (CDST) BIT DESIGNATION 

645 ; BIT 1 DATA PACKING 

646 ; BIT 2 BUSY 

647 ; BIT 3 READER TRANSITION TO ON LINE 

648 ; BIT 4 ADDRESS BIT 16 

649 ; BIT 5 ADDRESS BIT 17 

650 ; BIT 6  INTERUPT ENABLE 
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CZCDAD.P11 26-MAR- 11:18 DEF INITI AND VECTOR ASSIGNMENTS SEQ 0013 
651 z BIT 7 CONTROLLER READY 
626 s BIT 8 POWER CLEAR 
65 - BIT 9 NON-EXISTENT MEMORY 
654 . BIT 10 DATA LATE 
655 s BIT 11 DATA ERROR | 
$38 : B1T 12 OFF LINE 
65 s BIT 13 END OF FILE (M1200 ONLY) 
028 . BIT 14 CARD READER ERROR 
659 : BIT 15 
660 
661 177570 SWR= 177570 
$06 177776 PS= 177776 
66 000240 = 240 
664 104000 HL T= EMT 
665 104400 SCOPE= T 
666 000004 TYPE= IOT 
667 000000 DUMMY= 
668 000000 RO= Z0 : SCRATCH 
og? 000001 R1= %1 > SCRATCH 
670 000002 ADINT= %2 =CONTAINS ADDRESS OF INTERRUPT VECT 
671 000003 CDS= %3 :CONTAINS ADDRESS OF CARD READER STATUS REGISTER 
67 000004 CDC= %4 :CONTAINS ADDRESS OF CARD READER COLUMN COUNT 
6 000005 CDA= 25 :CONTAINS ADDRESS OF CARD READER BUS ADDRESS REG. 
674 000005 TTY= x5 
675 000006 = %6 sSTACK POINTER 
ore 000007 PC= %7 :PROGRAM COUNTER 
678 ABS 
679 000000 .=0 : TRAP CATCHER IS LOADED INTO LOCATIONS 0 THRU 377 
16 Loe TRAP VECTORS FOR HLT AND SCOPE ROUTINES 
oe 000514 TRTRAP 
16 000340 340 
5 ¢ =20 
gp0ess 12452 $TYPE 
340 340 
4 01 $6 — POWR 
o8o 800086 000340 520 
691 3 <0 ones 
BFE Be8b RS 000840 BAO 


6 

695 goose 1 3 SCOPEC 

on 340 340 

: LOAD STARTING ADDRESS AREA 

rs MOV WSTACK, SP 
BEGIN 


=210 JMP :NORMAL STARTING ADDRESS FOR CD11 READER 
‘i MOV #STACK, SP 
_ JMP ERCD11 = STARTING ADDRESS FOR CD11 (M1000) ERROR FUNCTION TEST 


MOV #STACK, SP 
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000224 


000240 
000244 





000167 011022 


01 012706 


012767 
004767 


000500 
011112 


000500 
006256 
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011664 


177160 


011432 


JMP 
.=240 
MOV 
JMP 
.=250 
MOV 
JMP 


TESTX 


ASTACK, SP 
CKSAME 


MSTACK, SP 
ER1200 


B 2 
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DEFINITIONS AND VECTOR ASSIGNMENTS 


SEQ 0014 


:STARTING ADDRESS FOR LOOP WHICH CONTINUALLY RUNS 


SANY SINGLE SUBTEST 


[PATTERN CONTINUOUSLY 


‘LON POINTERS AND GENERAL STORAGE 


STACK: 0O 
CDST: 177160 
CDCC: 177162 
CDBA: 177164 
TPS: 177564 
TPB: 177566 
TRTRAP: RTI 
INTVC: 230 


m 
2» 
es | 
sea 
G) 
oooo oOoOoOOonN 


: INITIALI ua 
SETUP: 


BEGIN: MOV 


JSR 


CSR AND DBR POINTERS 
#1, 1 TMAX 


cDST, CDS 
cocc, CDC 
CDA 


INTVC, ADINT 
INTVC #2 (ADINT) 


ABEGIN, RETURN 
%7, SETUP 


;STACK POINTER INITIALIZED TO POINT HERE 

ZADDRESS OF CARD READER STATUS REGISTER 

; ADDRESS OF CARD READER COLUMN COUNT 
ADDRESS OF CARD READER BUS ADDRESS 

“ADDRESS OF TELETYPE STATUS REGISTER 

-ADDRESS OF TELETYPE DATA BUFFER 

;RETURN FROM 


TRACE LOOP 
SADDRESS OF CARD READER INTERRUPT VECTOR 


USED FOR TIMING, ETC. 
; CONTAINS LEVEL THAT INTERRUPT IS FOUND A 


;TOGGLED TO SWITCH BETWEEN TRACE TRAPPING. AND 
STORES = STATUS WHEN TRACE TRAP MUST BE CLEARED 


;IN_A_SUBTES 
ser TO ZERO TO OUTPUT DATA ERROR HEADING 
FLAG RBOARD DECK 


FOR CHECKE 
[USED AS COUNTER IN TESTG 
>M-1200 OR M-1000 CARD READER DETECTOR 


SET ITERATION MAXIMUM TO 1 ITERATION 
:SET UP STATUS REGISTER POINTER 
UMN COUNT REGISTER POINTER 


:SET UP COL 
SET UP BUS ADDRESS REGISTER POINTER 
LOAD ADDRESS OF INTERRUPT VECTOR 


;SET UP “i TRAP VECTOR 


; TO HAL 

INITIALIZE wok ge ff FLAG 
s INITIALIZE TRACE FLAG 
— STATUS 


SAVE RETURN FOR POWER FAIL 
: INITIALIZE POINTERS AND FLAGS 


. ® STARTING ADDRESS OF — TO READ A SINGLE DATA 


:STARTING ADDRESS FOR M-1200 ERROR FUNCTION TEST 


NORMAL FLO 





ilo hy CD11 CARD READER DIAG 


ZCDAD.P11 


763 


ERE ERERRRABR Sets 


SSS S Ree esses east sseseaKaes 


bad ed ot 
CONAUIS WIN O 


wd oe ed ed 


ed eed ed etd od 


S88ss 
SESE FNVSRS 


aed ed aed od = 
ed eed aed ed 


Sees 


BBs 


300216 
O83 08! 
012767 

07 
032767 
001370 
012767 
012767 
104400 
004767 
000005 
022713 
001401 
005714 
001401 
104000 
005715 
001401 
104000 


104400 


104400 


012714 
022714 


001401 
000 
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015715 
177502 
000340 
010000 
000360 


001064 
011114 
000200 


177376 
000362 


000200 


177777 
000200 


177777 
177777 


176742 
176524 
176722 


011356 


RESTRT: 


NOTRP : 
TRAPX: 


———— eee 


ee LS 
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LOGIC FUNCTION TESTS 


TYPE, MSG27 ; TYPE OUT eg IDENTIFICATION 
TEST :G0 TO INSTRUCTION TESTS 
TST TRFLG ;CHECK FOR TRACE I 
TRAPX IF SET, TRACE T 
#340, PS :1F ZERO, CLEAR TRACE BIT 
BR TEST >GO TO INSTRUCTION TESTS 
BIT #10000, SWR ZCHECK SW 
BNE NOTRP BRANCH IF SET TO CLEAR TRACE BIT 
MOV #360, PS :SET TRACE BIT 


#TESTIA,RETURN ;SETUP SCOPE LOOP RETURN ADDRESS 


a roe Soe INITIALIZATION OF ALL CARD READER REGISTERS 


TESTI: 
TESTIA: 


7SO ALL TESTS START > SCOPE 


JSR x7, CKOFFL ;CHECK FOR OFF-LINE SET 

RESET :SEND OUT INIT 

CMP #200, aCDS : CHECK o7 STATUS REGISTER BIT 7 SET 
BEQ +4 BRANCH 

HLT ; STATUS REGISTER NOT CORRECTLY INITIALIZED 
TST acdc ;CHECK FOR COLUMN COUNT CLEARED 

BEQ +4 ; F OK 

HLT :COLUMN COUNT NOT CLEARED BY INIT 
TST acDA ;CHECK FOR BUS ADDRESS CLEARED 

BEQ +4 BR IF 

HLT ;BUS ADDRESS NOT CLEARED BY INIT 


SCOPE 


TEST2: 
TEST ag Bt THE PROPER BITS OF THE STATUS REGISTER ARE +? ‘oot 


BITS 1,4,5,. AND 6 OF THE STATUS REGISTER SHOULD 


sABLE T SET TO ONE AND READ BACK AS ONE 

BIS #177376,aCDS SET ALL BITS BUT O AND 8 

CMP 362,  aCDS :ONLY BITS 1.4.5.6, AND 7 SHOULD BE SET 
BEQ +6 BRANCH IF 

HLT sSTATUS REGISTER DIDN'T CONTAIN 362 

BR TESTS :BRANCH AFTER FAILURE 


yaaa STATUS REGISTER SHOULD CLEAR BITS 1,4,5, AND 6 
CLR CLEAR BITS 1,4,5, 


So #200. acDsS ; CHECK me ALL BITS CLEAR BUT 7 
HLT STATUS REGISTER DIDN'T CONTAIN 200 
:SETTING ALL_BITS SHOULD DO A POWER CLEAR 
MOV #177777 ,acDsS :;SET ALL BITS OF THE STATUS REGISTER 
CMP #200, aCDS :CHECK FOR ALL BITS CLEAR BUT 7 
BEQ +4 :BRANCH IF OK 
HLT =STATUS REGISTER DIDN'T CONTAIN 200 
TEST3: SCOPE 
:TEST THE COLUMN COUNT REGISTER FOR READ/WRITE-ABILITY 
MOV #177777 ,acdCc ;LOAD ALL BIT 
CMP #177777, ScbC :TEST TO SEE IF IT CAN BE READ 
BEQ - +4 BRANCH IF OK 
HLT :CDCC FAILED TO READ/WRITE 





oe ere ee 


SEQ 0015 


ee LD 
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C2CDAD.P11 26-MAR-80 11:18 LOGIC FUNCTION TESTS SEQ 0016 
819 001202 922713 000200 CMP #200, @CDS § ;CHECK STATUS REG 
001 1401 BEQ +4 “BRANCH IF 
1 001210 104000 HLT “STATUS REG CHANGED 
¢ 001212 052713 000400 BIS #400. aCDS ;:DO A POWER CLEAR 
4 001216 005714 TST acc “CHECK FOR COLUMN COUNT CLEARED 
§ 001220 001401 BEQ +6 “BRANCH IF OK 
001222 104000 HLT “COLUMN COUNT NOT CLEARED BY POWER CLEAR 
001224 022713 000200 CMP #200, aCDS § ;CHECK STATUS REG 
0012 001401 BEQ +4 “BRANCH IF OK 
( 001 104000 HLT “STATUS REG CHANGED 
001234 104400 TEST4: SCOPE 
-TEST THE BUS ADDRESS REGISTER FOR READ/WRITE-ABILITY 
834 001236 012715 177777 MOV #177777,a@CDA_—s; LOAD ALL BIT 
835 001242 022715 177777 CMP w177777,aCDA =; TEST TO SEE IF IT CAN BE READ 
B36 001246 001401 BEQ +4 CH IF OK 
837 001250 104009 HLT “CDBA FAILED TO READ/WRITE 
839 001252 022713 000200 CMP #200. aCDS | ;CHECK STATUS REG 
840 001256 001401 BEQ +4 “BRANCH IF OK 
B41 001260 104000 HLT “STATUS REG CHANGED 
525 001262 052713 000400 BIS #400. aCDS  ;DO A POWER CLEAR 
B44 001266 005715 TST acDA “CHECK FOR BUS ADDRESS CLEARED 
845 001270 001401 BEQ +4 “BRANCH IF OK 
B46 001272 104000 HLT “BUS ADDRESS NOT CLEARED BY POWER CLEAR 
848 001274 022713 000200 CMP #200, acDS  ;CHECK STATUS REG 
849 001 001401 BEQ +4 H IF OK 
850 001302 104000 HLT “STATUS REG CHANGED 
852 001304 104400 TESTS: SCOPE 
RS :START SHOULD CAUSE CONTROLLER READY WITHIN ABOUT 1 SECOND 
854 “BIT 0 SHOULD ALWAYS READ AS BEING EQUAL TO ZERO 
855 001306 004767 010672 JSR 47 CKOFFL  :CHECK FOR OFF-LINE SET 
856 001312 012714 177777 MOV #-i, | aCDC  :SET UP COLUMN COUNT TO READ 1 COLUMN 
857 001316 012715 016044 MOV WBUFBEG.aCDA § :SET UP BUS 
858 001322 016767 176450 177200 MOV PS, PROC : STORE CURRENT PROCESSOR STATUS 
859 001 005067 176442 CLR PS “CLEAR TRACE BIT 
860 001334 005067 177162 CLR COUNT ‘INITIALIZE COUNTER 
861 001340 005213 INC acDs “START READING A CARD 
862 001342 105713 TSTB =. @CDS ; CHECK FOR CONTROLLER READY CLEARED 
001344 100001 BPL +4 H IF 
864 001346 104000 HLT < CONTROLLER READY DIDN'T CLEAR 
866 001350 032713 000001 LooPS: BIT #1, acDS §_ : CHECK BIT 0 
867 001354 001402 BEQ +6 “BRANCH IF NOT SET 
868 001356 104000 HLT “BIT 0 READ AS A ONE 
869 001360 000421 BR TEST6 “BRANCH AFTER FAILURE 
870 001 362 005267 177134 INC COUNT “WAIT ABOUT 
871 001 001370 BNE LOOPS 
872 001370 016767 177134 176400 MOV PROC, PS :RESTORE PROCESSOR STATUS 
873 001376 105713 STB ~—- aCDS “CHECK CONTROLLER READY 
874 001400 100401 BM] +4 “CONTINUE IF SET 
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LOGIC FUNCTION TESTS 


CONTROLLER READY DIDN'T SET WITHIN 1 SEC 
acDds 
- +6 
;ERROR BIT SET 
;CHECK FOR ANY OTHER BITS 


TEST6 
#177577,aCDS 
+4 ;BRANCH 

:EXTRA BIT(S) SET 


TEST6: _SCOPE 
: (BIT 2) SHOULD NOT BE SET BY READING A CARD 
71T SHOULD REMAIN NOT SE 


T 
; THIS — HAPPEN ~ bn ABOUT 1 SECOND 


LOOP6A: 


OOP6B: MOV 


L 
LOOP6: 


DONE6: 


TST 
HLT 


%7 , CKOFF :CHECK FOR OFF-LINE SET 
acDS zINITIALIZE STATUS REGISTER 
#-20., aCDC ET UP COLUMN COUNT T 


7S OL O READ 20 COLUMNS 
#BUFBEG ,aCDA ;SET UP BUS ADDRESS 
acDsS READ A_CARD 
— ; CHECK BUSY 
.+ 


;BUSY SET 
COUNT 7SET UP WAIT COUNTER 
PS, PROC SAVE PROCESSOR STATUS 
PS :CLR THE T BIT 


acDsS ; CHECK READY 

L BRANCH IF READY 

COUNT ;WAIT ABOUT 1 SEC. 

LOOP6A 

TEST? READING A CARD DIDN*T SET READY 
PROC .PS RESTORE THE STATUS 


acDsS :CHECK CONTROLLER READY 

DONE BRANCH IF SET 

RESTORING STATUS RESET READY 
he Me ge BIT 15 


acps 
: “ERROR BIT 15 WAS SET 


TEST7: SCOPE 
eeitees: ns aah a AN INTERRUPT 


TINT?: 


# It: INITIALIZE 

#TINT7,@ADINT ;:LOAD RETURN POINTER 

#340, P “SET PROCESSOR TO LEVEL 7 

PS 2(ADINT) :LOAD RETURN PROCESSOR STATUS 

#340, PS :SET PROCESSOR PRIORITY TO 0 

#-31., @CDC | :SET UP COLUMN COUNT TO READ 31 COLUMNS 
FBEG.acDA  :SET UP BUS ADDRESS 

#101, a@cCDS | :SET INTERUPT ENABLE AND READ 

acps “WAIT FOR CONTROLLER READY 

3(ADINT) ,PS “RESTORE PROCESSOR TO HIGHEST PRIORITY 


#100, @CDS §:CLEAR INTERRUPT ENABLE 
eee “NO INTERRUPT OCCURRED 


acDs :CHECK CONTROLLER READY 





SEQ 0017 
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931 001630 100401 BM] +4 :BRANCH IF SET 

3e 001632 104000 HLT “CONTROLLER READY NOT SET 

933 001634 02262 CMP (SP)+, (SP)+ =RESTORE STACK POINTER 

934 001 00571 TST acDs “MAKE SURE NO ERROR OCCURRED 

935 001640 100001 BPL +4 

93% 001642 104000 HLT ;BIT 15 WAS SET 

937 001644 00501 CLR acDs “DISABLE INTERRUPTS 

938 001646 O12712 000232 CONT7: MOV #232, @ADINT ‘CHANGE INTERRUPT RETURN ADDRESS 

939 00165 5037 000232 CLR at23e “TO CAUSE A HALT IF AN INTERRUPT OCCURS 

941 001656 104400 TEST10: SCOPE 

3% TES TROLLER READY SHOULDN'T CAUSE AN INTERRUPT IF THE PROCESSOR IS 

34 “AT LEVEL 7 PRIORITY 

944 001660 767 010254 JSR ?.. INIT  s INITIALIZE 

945 001664 012712 001726 MOV #TINTI0,@ADINT :SETUP RETURN 

946 001670 052767 340 176100 BIS #340, “SET PROCESSOR TO LEVEL 7 PRIORITY 

947 001676 016762 176074 000002 MOV PS, 2(ADINT) :LOAD RETURN PROCESSOR STATUS 

948 001704 012714 177703 MOV #-61.. a@CDC | ;SET UP COLUMN COUNT TO READ 61 COLUMWS 

949 001710 012715 016044 MOV WBUFBEG,aCDA § :SET UP BUS ADDRESS 

950 001714 012713 000101 MOV #101. @CDS |§ :SET INTERRUPT ENABLE AND READ 

951 001720 105713 TSTB = acDS “WAIT FOR CONTROLLER READY 

95¢ 001722 100376 BPL -2 

953 001724 02 BR +6 ;CONTINUE IF NO INTERRUPT OCCURRED 

954 001726 104 TINT10: HLT AN INTERRUPT OCCURRED 

955 001730 022626 CMP (SP)+, (SP)+ “RESTORE STACK POINTER 

956 001732 005013 CLR acDs “CLEAR INTERRUPT ENABLE 

957 001734 012712 000232 MOV #232, @ADINT “CHANGE INTERRUPT RETURN ADDRESS 

958 001740 005037 000232 CLR av232 “TO CAUSE A HALT IF AN INTERRUPT OCCURS 

960 :FIND THE LEVEL AT WHICH AN INTERRUPT OCCURS 

961 “PRINT OUT A MESSAGE STATING THIS LEVEL IF IT IS OTHER THAN THE STANDARD 

36 ; (LEVEL 6) MAKE CERTAIN THAT IT ALWAYS OCCURS AT THIS LEVEL 

36 “THE MESSAGE STATING THE LEVEL IS PRINTED ONLY ONCE, AND THE PROGRAM MUST 

964 “BE STARTED OVER AT LOCATION 200 FOR IT TO BE PRINTED AGAIN 

966 TEST FOR AN INTERRUPT ON LEVEL 7 

967 001744 104400 TESTI1: SCOPE 

968 001746 767 010166 “7, INIT  : INITIALIZE 

969 001752 012712 002070 MOV #TINT11,@ADINT :SETUP RETURN ADDRESS 

970 001756 052767 000340 176012 BIS #340, “SET PROCESSOR PRIORITY TO 7 

971 001764 016762 176006 000002 MOV PS, >(ADINT) :SETUP RETURN PROCESSOR STATUS 

972 001772 042767 000340 175776 BIC #340, PS SET ESSOR PRIORITY TO 

973 002000 052767 000300 175770 BIS #300, PS “SET PROCESSOR TO LEVEL 6 PRIORITY 

974 902006 012714 177660 MOV #-80.. aCDC  :SET UP COLUMN COUNT TO READ 80 COLUMNS 

975 12 012715 016044 MOV WRUFBEG.aCDA § :SET UP BUS ADDRESS 

976 002016 012713 000101 MOV #101, @CDS | :SET INTERUPT ENABLE AND READ 

977 002022 105713 TSTB ~—- @CDS “WAIT FOR CONTROLLER READY 

978 4 100376 BPL =2 

979 016267 000002 175742 MOV >(ADINT) PS :RESTORE PROCESSOR TO HIGHEST PRIORITY 

980 002034 005013 CLR acps “DISABLE INTERRUPTS 

981 002036 012712 000232 MOV #232.  @ADINT : CHANGE INTERRUPT T RETURN ADDRESS 

982 90204¢ 005037 000232 CLR at232 “TO CAUSE A HALT IF AN INTERRUPT OCCURS 
005767 176452 TST INTFLG ; TEST FOR A PREVIOUS INTERUPT 

984 Spee 001442 REQ TEST12 

985 026727 176444 100007 CMP INTFLG, #100007 “CHECK MPREVIOUS LEVEL 

986 002062 1004 BMI TEST12 “BRANCH IF LOWER 








ee 
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C2 
C2CDAD.P11  26-MAR~80 11:18 LOGIC FUNCTION TESTS SEQ 0019 
987 002064 104000 HLT =: INTERUPT PREVIOUSLY OCCURRED AT LEVEL 7 OR HIGHER 
988 000434 BR TEST12 
989 70 105713 TINT11: TSTB a@CDS *MAKE SURE CONTROLLER READY IS SET 
990 72 100401 BM! +4 “BRANCH IF SET 
991 74 104000 HLT “CONTROLLER READY WASN'T SET 
9 002076 005013 CLR acDs “DISABLE FURTHER INTERRUPTS 
993 002100 012712 000232 MOV #232.  @ADINT :CHANGE INTERRUPT RETURN ADDRESS 
994 002104 005037 000232 CLR a232 “TO CAUSE A HALT IF AN INTERRUPT OCCURS 
995 002110 022626 CMP (SP) +, (SP)+ : RESTORE STACK POINTER 
996 002112 005767 176406 TST INT FLG “CHECK FOR PREVIOUS FLAG 
997 116 100413 BMI SET :BRANCH IF FLAG SET 
998 002120 012767 100007 176376 MOV 3500007. INTFLG ;SET FLAG AND LEVEL 
999 002126 000004 014062 TYPE, MSG4 PRINT MESSAGE ‘THE INTERRUPT LEVEL WAS"' 
1000 002132 012767 000007 010420 MOV a. PRINT1 “TYPE #7 IN OCTAL 
1001 002140 004767 010460 JSR 47° PRINTS “AND SUPRESS LEADING ZERO'S 
1002 002144 00040 BR TEST12 
1003 002146 026727 176352 100007 SET7: CMP INTFLG, #100007 ;:CHECK PREVIOUS LEVEL 
1004 002154 100001 BPL TEST12 
1005 002156 104000 HLT INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
1006 -TEST FOR AN INTERRUPT ON LEVEL 6 
1007 002160 104400 TEST12: SCOPE 
1008 002162 004767 007752 JSR 47, INIT  ; INITIALIZE 
1009 002166 012712 002304 MOV #TINT12,@ADINT :SETUP RETURN ADDRESS 
1010 002172 052767 000340 175576 BIS #340, PS “SET PROCESSOR PRIORITY TO 7 
1011 002 016762 175572 000002 MOV PS, 2(ADINT) :SETUP RETURN PROCESSOR STATUS 
1012 002206 767 000340 175562 BIC #340, PS :SET PROCESSOR PRIORITY TO 0 
101 14 052767 000240 175554 BIS #240, PS “SET PROCESSOR TO LEVEL 5 PRIORITY 
1014 002222 012714 177660 MOV #-80.. @CDC  :SET UP COLUMN COUNT TO READ 80 COLUMNS 
1015 002226 012715 016044 MOV WRUFBEG.@CDA § :SET UP BUS ADDRESS 
1016 002232 012713 000101 MOV #101,  acDs :SET INTERUPT ENABLE AND READ 
1017 0022 105713 TSTB ~=s-_ CDSS WAIT FOR CONTROLLER READY 
1018 002240 100376 BPL - 
1019 002242 016267 000002 175526 MOV 5 (ADINT) PS =RESTORE PROCESSOR TO HIGHEST PRIORITY 
1020 002250 005013 CLR acos “DISABLE INTERRUPT 
1021 002252 012712 000232 MOV #232. @ADINT =CHANGE INTERRUPT RETURN ADDRESS 
1082 002256 005037 000232 CLR ai23e2 “TO CAUSE A HALT IF AN INTERRUPT OCCURS 
1023 002 005767 176236 TST INTFLG “TEST FOR A PREVIOUS INTERUPT 
1024 002266 001442 BEQ TEST13 “BRANCH IF NONE 
1025 002270 026727 176230 100006 CMP INTFLG, #100006 :CHECK PREVIOUS LEVEL 
1 002276 100436 BMI TEST13 “BRANCH IF LOWER 
1027 104000 HLT “INTERUPT PREVIOUSLY OCCURRED AT LEVEL 6 OR HIGHER 
1028 002302 000434 BR TEST13 
1089 002304 105713 TINT12: TSTB aCDS “MAKE SURE CONTROLLER READY IS SET 
10 100401 BMI a “BRANCH IF SET 
1031 310 HLT : CONTROLLE WASN'T SET 
1032 002312 005013 CLR acps “DISABLE FURTHER INTERRUPT 
1033 002314 012712 000232 MOV #o32 @ADINT :C INTERRUPT RETURN ADDRESS 
1 005037 000232 CLR att23e “TO CAUSE A HALT IF AN INTERRUPT OCCURS 
1035 4 022626 CMP (SP)+, (SP)+  :RESTORE STACK POINTER 
1036 005767 176172 TST INTFLG “CHECK FOR PREVIOUS FLAG 
103 100413 BMI SET6. —«: BRANCH IF FLAG SET 
1038 334 012767 100006 176162 MOV #100006, INTFLG ;SET FLAG AND LEVEL 
1039 2 000004 014062 TYPE, MSG4 *PRINT MESSAGE ‘THE INTERRUPT LEVEL WAS’’ 
1040 346 012767 000006 010204 MOV #6,PRINT1 “TYPE #6 IN OCTAL 
1041 354 004767 010244 JSR %7 PRINTS “AND SUPRESS LEADING ZERO'S 
1042 002360 000405 BR TEST13 
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CZCDADO 
CZCDAD.P 26-MAR-80 11:18 LOGIC FUNCTION TESTS SEQ 0020 
1043 002362 026727 176136 100006 SET6: CMP INTFLG. #100006 ;CHECK PREVIOUS LEVEL 
1044 002370 1 1 BPL TEST13 
1045 002372 1046000 HLT - INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
1046 TEST FOR AN INTERRUPT ON LEVEL 5 
1047 002374 104400 TEST13: 
1048 002376 004767 007536 = “7. INIT  ; INITIALIZE 
1049 002402 012712 002520 MOV #TINT13,@ADINT :SETUP RETURN ADDRESS 
1050 002406 052767 000340 175362 BIS #340, PS “SET PROCESSOR PRIORITY TO 7 
1051 002414 016762 175356 000002 MOV PS, 2(ADINT) :SETUP RETURN PROCESSOR STATUS 
1059 422 042767 000340 175346 BIC #340, PS :SET PROCESSOR PRIORITY TO 0 
105 430 052767 000200 175340 BIS #200, PS “SET PROCESSOR TO LEVEL 4 PRIORITY 
1054 002436 012714 177660 MOV #-80., @CDC  :SET UP COLUMN COUNT TO READ 80 COLUMNS 
1055 002442 012715 016044 MOV WRUFBEG.aCDA § :SET UP BUS ADDRESS 
1056 002446 012713 000101 MOV #101, @CDS | :SET INTERUPT ENABLE AND READ 
1057 002452 105713 TSTB © aCDS “WAIT FOR CONTROLLER READY 
1058 002454 100376 BPL 2 
1059 002456 016267 000002 175312 MOV >(ADINT) ,PS sRESTORE PROCESSOR TO HIGHEST PRIORITY 
1060 002464 005013 CLR acDs “DISABLE INTERRUPTS 
1061 002466 012712 000232 MOV #232.  @ADINT :CHANGE INTERRUPT RETURN ADDRESS 
1062 002472 005037 0002 CLR a232 “TO CAUSE A HALT IF AN INTERRUPT OCCURS 
1063 002476 005767 176022 TST INTFLG ; TEST FOR A PREVIOUS INTERUPT 
1064 002502 001442 BEQ TEST14 CH IF NONE 
1065 002504 026727 176014 100005 CMP INTFLG, #100005 CHECK PREV 10US LEVEL 
1066 002512 100436 BMI TEST14 “BRANCH 
1067 002514 104000 HLT OONCRUPT PREVIOUSLY OCCURRED AT LEVEL 5 OR HIGHER 
1068 002516 0004 34 BR TEST14 
1069 002520 105713 TINT13: TSTB  acDS ;MAKE SURE CONTROLLER READY IS SET 
1070 002522 100401 BMI +4 H IF SET 
1071 602524 HLT ‘CONTROLLER READY WASN'T SET 
1072 002526 005013 CLR acps “DISABLE FURTHER INTERRUPTS 
1073 002530 012712 000232 MOV #232.  @ADINT :CHANGE INTERRUPT RETURN ADDRESS 
1074 002534 005037 000232 CLR av232 “TO CAUSE A HALT IF AN INTERRUPT OCCURS 
1075 540 022626 CMP (SP)+, (SP)+ RESTORE STACK POINTER 
1076 00256¢ 005767 175756 TST INTFLG ; CHECK FOR PREVIOUS FLAG 
1077 100413 BMI SETS _—s: BRANCH IF FLAG SET 
1078 002550 012767 100005 175746 MOV #100005. INTFLG :SET FLAG AND LEVEL 
1079 002936 000004 014062 TYPE, MSG4 > PRINT MESSAGE “THE INTERRUPT LEVEL WAS’’ 
1080 002562 012767 0000, 007770 MOV #5,,PRINT1 “TYPE #5 IN OCTAL 
1081 002570 004767 010030 JSR 27 PRINTS * AND SUPRESS OT EADING ZERO'S 
1083 576 026727 175722 100005 SETS: CMP INTFLG, #100005 :CHECK PREVIOUS LEVEL 
1084 002604 1 BPL TEST14 
1085 002606 104000 HiT s INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
1086 -TEST FOR AN INTERRUPT ON LEVEL 4 
1087 19 104400 TEST14: SCOPE 
1088 12 004767 007322 JSR “7, INIT  ;INITIALIZE 
1089 16 012712 002734 MOV ATINT14,@ADINT :SETUP RETURN ADDRESS 
1090 2 052767 000340 175146 BIS #340, PS “SET PROCESSOR PRIORITY TO 7 
1091 016762 175142 000002 MOV PS 2(ADINT) ;SETUP RETURN PROCESSOR STATUS 
1098 042767 000340 175132 BIC #340, PS -SET PROCESSOR PRIORITY TO 0 
109 052767 000140 175124 BIS #140, PS *SET PROCESSOR TO LEV 3 PRIORITY 
1094 2 012714 177660 MOV #-80.. aCDC  :SET UP COLUMN COUNT TO READ 80 COLUMNS 
1095 56 012715 016044 MOV WBUFBEG,@CDA § : SET UP BUS ADDRESS 
1096 012713 000101 MOV #101,  acDdSs :SET INTERUPT ENABLE AND READ 
109 105713 TSTB.~—s-so@CDS WAIT FOR CONTROLLER READY 
1098 002670 100376 BPL 2 
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672 016267 000002 175076 MOV 2(ADINT) .PS “RESTORE PROCESSOR TO HIGHEST PRIORITY 
700 00501 CLR acps “DISABLE INTERRUPTS 
702 O12/12 000232 MOV #232.  @ADINT :CHANGE INTERRUPT RETURN ADDRESS 
706 000232 CLR at23e “TO CAUSE A HALT IF AN INTERRUPT OCCURS 
712 005767 175606 TST INTFLG “TEST FOR A PREVIOUS INTERUPT 
716 001433 BEQ TEST15 “BRANCH IF NONE 
026727 175600 100004 CMP INTFLG, #100004 :CHECK PREVIOUS LEVEL 
6 100427 BMI TEST15 “BRANCH IF L 
104000 HLT “INTERUPT PREVIOUSLY OCCURRED AT LEVEL 4 OR HIGHER 
2 000425 BR TEST15 
105713 TINT14: TSTB acDS :MAKE SURE CONTROLLER READY IS SET 
100401 BMI +4 “BRANCH IF SET 
740 HLT “CONTROLLER READY WASN'T SET 
742 005013 CLR acDs “DISABLE FURTHER INTERRUPTS 
744 012712 000232 MOV #232. @ADINT CHANGE INTERRUPT RETURN ADDRESS 
750 005037 000232 CLR ave “TO CAUSE A HALT IF AN INTERRUPT OCCURS 
754 022626 CMP (SP)+, (SP)+ RESTORE STACK POINTER 
002756 005767 175542 TST INTFLG “CHECK FOR PREVIOUS FLAG 
762 100404 BMI SET4 _: BRANCH IF FLAG SET 
764 012767 100004 175532 MOV #100004. INTFLG ;SET FLAG AND LEVEL 
002772 000405 BR TEST 
002774 026727 175524 100004 SET4: CMP INTFLG, #100004 ;CHECK PREVIOUS LEVEL 
003002 100001 BPL TEST15 
00 104000 HLT - INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
:TEST FOR AN INTERRUPT ON LEVEL 3 
104400 TEST15: SCOPE 
003010 004767 007124 JS “7. INIT  ; INITIALIZE 
003014 012712 003132 MOV #TINT15,@ADINT :SETUP RETURN ADDRESS 
00 052767 000340 174750 BIS #340, PS “SET PROCESSOR PRIORITY TO 7 
003026 016762 174744 000002 MOV PS, 2(ADINT) :SETUP RETURN PROCESSOR STATUS 
003034 042767 000340 174734 BIC #340, PS :SET PROCESSOR PRIORITY TO 0 
003042 052767 000100 174726 BIS #100, PS “SET PROCESSOR TO LEVEL 2 PRIORITY 
00 012714 177660 MOV #-80.. @CDC  :SET UP COLUMN COUNT TO READ 80 COLUMNS 
003054 012715 016044 MOV WRUFBEG,@CDA § :SET UP BUS ADDRESS 
003060 012713 000101 MOV #101, a@CDS | :SET INTERUPT ENABLE AND READ 
003064 105713 TSTB =—s-« CDSS “WAIT FOR CONTROLLER READY 
003066 100376 BPL - 
003070 016267 000002 174700 MOV >(ADINT) PS =RESTORE PROCESSOR TO HIGHEST PRIORITY 
76 005013 CLR acDs “DISABLE INTERRUPTS 
003100 O12712 000232 MOV #32 @ADINT <=CHANGE INTERRUPT RETURN ADDRESS 
003104 005037 000232 CLR anes “TO CAUSE A HALT IF AN INTERRUPT OCCURS 
003110 005767 175410 TST INTFLG “TEST FOR A PREVIOUS INTERUPT 
003114 001442 BEOQ TEST16 “BRANCH IF NOME 
003116 0 re? 175402 100003 CMP INTFLG, #100003 :CHECK PREVIOUS LEVEL 
003124 1 BMI TEST16 : H IF LOWER 
003126 104000 HLT “ INTERUPT PREVIOUSLY OCCURRED AT LEVEL 3 OR HIGHER 
003130 000434 TEST16 
0031 105713 TINT15: TSTB acDS *MAKE SURE CONTROLLER READY IS SET 
134 100401 - “BRANCH IF SET 
003136 104000 HLT “CONTROLLER READY WASN'T SET 
3140 005013 CLR acps =D E FURTHER INTERRUPTS 
14 O12 12 000232 MOV #232.  @ADINT :C INTERRUPT RETURN ADDRESS 
146 005037 000232 CLR ase “TO CAUSE A HALT IF AN INTERRUPT OCCURS 
00 152 6 CMP (SP)+, (SP)+ RESTORE STACK POINTER 
3154 005767 175344 TST INTFLG “CHECK FOR PREVIOUS FLAG 
003160 100413 BM] SET3.-: BRANCH IF FLAG SET 
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C27CDAD.P11  26-MAR-80 11:18 LOGIC FUNCTION TESTS SEQ 0022 
1155 00 162 012767 100003 175334 MOV #100003, INTFLG ;SET FLAG AND LEVEL 

1156 0031 074062 TYPE, MSG4 PRINT MESSAGE “THE INTERRUPT LEVEL WAS'’ 
1157 003174 012767 000003 007356 MOV #3,PRINT1 “TYPE #3 IN OCTAL 

1158 99 2 004767 007416 JSR 47 PRINTS “AND SUPRESS LEADING ZERO'S 

115 000405 BR TEST16 

1160 003210 026727 175310 100003 SET3: CMP INTFLG, #100003 ;CHECK PREVIOUS LEVEL 

1161 003216 100001 BPL TEST16 

116¢ 003220 104000 HLT - INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
116 -TEST FOR AN INTERRUPT ON LEVEL 2 

1164 003222 104400 TEST16: SCGPE 

1165 003224 004 006710 - INIT  ; INITIALIZE 

1166 00 012712 003346 MOV #TINT16,@ADINT :SETUP RETURN ADDRESS 

1167 00 052767 000340 174534 BIS #340, PS “SET PROCESSOR PRIORITY TO 7 

1168 00 42 016762 174530 000002 MOV PS, 2(ADINT) ;SETUP RETURN PROCESSOR STATUS 

1169 00 042767 000340 174520 BIC #340, PS :SET PROCESSOR PRIORITY TO 0 

1170 003256 052767 000040 174512 BIS #040, PS “SET PROCESSOR TO LEVEL is PRIORITY 
1171 00 012714 177660 MOV #-80., a@CDC  :SET UP COLUMN COUNT TO READ 80 COLUMNS 
11% 003270 012715 016044 MOV WRUFBEG.@CDA §_: SET UP BUS ADDRESS 

1173 003274 012713 000101 MOV #101, a@CDS :SET INTERUPT ENABLE AND READ 

1174 003300 105713 TSTB. =. ACDS “WAIT FOR CONTROLLER READY 

1175 003302 100376 BPL =2 

1176 003304 016267 000002 174464 MOV >(ADINT) PS sRESTORE PROCESSOR TO HIGHEST PRIORITY 
1177 003312 005013 CLR acDs “DISABLE INTERRUPTS 

1178 003314 012712 000232 MOV #232.  @ADINT :CHANGE INTERRUPT RETURN ADDRESS 

1179 00 005037 000232 CLR an232 “TO CAUSE A HALT IF AN INTERRUPT OCCURS 
1180 003324 005767 175174 TST INTFLG “TEST FOR A PREVIOUS INTERUPT 

1181 001442 BEQ TEST17 “BRANCH IF NONE 

1182 33> 026727 175166 100002 CMP INTFLG, #100002 : CHECK PRE VOUS LEVEL 

1183 003340 100436 BMI TEST17 F LOWER 

1184 003342 104000 HLT ONTERUPT PREVIOUSLY OCCURRED AT LEVEL 2 OR HIGHER 
1185 003344 000434 BR TEST17 

1186 003346 105713 TINT16: TSTB  acDS ‘MAKE SURE CONTROLLER READY IS SET 

1187 003350 100401 BM] +4 “BRANCH IF SET 

1188 003352 000 HLT ° CONT 'T SET 

1189 003354 005013 CLR acDs “DISABLE FURTHER INTERRUPTS 

1190 005 56 012712 000232 MOV #232. @ADINT :CHANGE INTERRUPT RETURN ADDRESS 

1191 00 005037 000232 CLR av23e2 “TO CAUSE A HALT IF AN INTERRUPT CCCURS 
1198 003366 022626 CMP (SP)+, (SP)+ RESTORE STACK POINTER 

1193 002370 005767 175130 TST INTELG “CHECK FOR PREVIOUS FLAG 

1194 003374 100413 BMI ET2 :BRANCH IF FLAG SET 

1195 003376 012767 100002 175120 MOV 3500002. INTFLG ;SET FLAG AND LEVEL 

1196 003404 014062 TYPE, MSG4 PRINT T MESSAGE THE INTERRUPT LEVEL WAS'’ 
1197 003410 012767 000002 007142 MOV 2 PRINT :TYPE #2 IN OCTAL 

1198 003416 004767 007202 JSR %7,PRINTS “AND SUPRESS LEADING ZERO'S 

1199 2 000405 BR TEST17 

1200 3424 026727 175074 100002 SET2: CMP INTFLG, #100002 ;CHECK PREVIOUS LEVEL 

1201 003432 100001 BPL TEST17 

1208 003434 104000 HLT INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
120 -TEST FOR AN INTERRUPT ON LEVEL 1 

1 3436 104400 TEST17: SCOPE 

1 0 004767 006474 JSR 27. INIT  ;INITIALIZE 

1 3444 O12712 003544 "10V #TINT17,@ADINT :SETUP RETURN ADDRESS 

1 3450 052767 000340 174320 BIS #340, PS “SET PROCESSOR PRIORITY TO 7 

1208 00 56 016762 174314 000002 MOV PS, 2CADINT) -SETUP RETURN PROCESSOR STATUS 

1 Rae 042767 000340 174304 BIC #340, :SET PROCESSOR PRIORITY TO 0 

1210 003472 052767 000000 174276 BIS #000. pe “SET PROCESSOR TO LEVEL 0 PRIORITY 
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P LOGIC FUNCTION TESTS SEQ 0023 
003500 012714 177660 MOV #-80.. aCDC | ;SET UP COLUMN COUNT TO READ 80 COLUMNS 
003504 012715 016044 MOV WBUFBEG.@CDA §_:SET UP BUS ADDRESS 
003510 012713 000101 MOV W101. a@CDS § :SET INTERUPT ENABLE AND READ 
90 514 10571 TSTB =. ACS “WAIT FOR CONTROLLER READY 

516 100376 BPL 2 
003520 016267 000002 174250 MOV 3 (ADINT) ,PS :RESTORE PROCESSOR TO HIGHEST PRIORITY 
003526 005013 CLR acDs “DISABLE INTERRUPTS 
0035 O12/12 000232 MOV #232. @ADINT :CHANGE INTERRUPT RETURN ADDRESS 
003534 005037 000232 CLR at23e :TO_CAUSE A HALT IF AN INTERRUPT OCCURS 
003540 104000 HLT * INTERUPT DIDN'T OC CURE WITH PROCESSOR AT LEVEL 0 
003542 000434 BR TEST20 
003544 105713 TINT17: TSTB  acDS :MAKE SURE CONTROLLER READY IS SET 
003546 100401 BMI +4 “BRANCH IF SET 
903550 104000 HLT “CONTROLLER READY WASN'T SET 
003552 005013 CLR acps “DISABLE FURTHER INTERRUPTS 
003554 012712 000232 MOV #232. @ADINT =CHANGE INTERRUPT RETURN ADDRESS 
003560 005037 000232 CLR at23e “TO CAUSE A HALT IF AN INTERRUPT OCCURS 
003564 022626 CMP (SP)+, (SP)+ RESTORE STACK POINTER 
003566 005767 174732 TST INTELG “CHECK FOR PREVIOUS FLAG 
003572 100413 BMI SET1 :BRANCH IF FLAG SET 

003574 012767 100001 174722 MOV #100001, INTFLG ;SET FLAG AND LEVEL : 
00 000004 014062 TYPE, MSG4 “PRINT MESSAGE ‘THE INTERRUPT LEVEL WAS 
00 012767 000001 006744 MOV #1,.PRINT1 “TYPE #1 IN OCTAL 
003614 004767 007004 JSR 47..PRINTS “AND SUPRESS LEADING ZERO'S 
00 000405 BR TEST20 
003622 026727 174676 100001 SET1: CMP INTFLG. #100001 :CHECK PREVIOUS LEVEL 
00 100001 BPL TEST20 
003632 104000 HLT INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
003634 104400 TEST20: SCOPE 

: TEST For NO INTERRUPT OCCURING WITH INTERRUPT ENABLE SET AND REST CLEARED 
003636 004767 006276 JSR 17. INIT  :INITIALIZE CSR TO ZERO 
003642 012712 003726 MOV #TINT20, @ADINT ;SETUP RETURN ADDRESS 

00 052767 000340 174122 BIS #340, PS =SET PROCESSOR TO LEVEL 7 
003654 016762 174116 000002 MOV PS, 2(ADINT) :STORE PROCESSOR STATUS 
003662 005067 174110 CLR PS :SET PROCESSOR TO LEVEL 0 
003666 012714 177777 MOV #-1, aCDC  :SET UP COLUMN COUNT TO READ 1 COLUMN 
003672 012715 016044 MOV WBUFBEG,@CDA :SET UP ADDRESS 
003676 012713 000100 MOV #100,  aCDS § ;: ENABLE INTERRUPTS 
003702 005067 174614 CLR COUNT ‘INITIALIZE COUNTER 
003706 005267 174610 INC COUNT “WAIT AWHILE 
003712 001375 BNE 4 
003714 016267 000002 174054 MOV >(ADINT) ,PS sRESTORE PROCESSOR TO LEVEL 7 
003722 005013 CLR acDs “DISABLE FURTHER INTERRUPTS 
003724 000403 BR CONT20 
003726 104000 TINT20: HLT AN INTERRUPT OCCURRED 
003 022626 CMP (SP)+, (SP)+  :RESTORE STACK 
00373 005013 CLR acDs “DISABLE FURTHER INTERRUPTS 
003 005037 000232 CONT20: CLR ay232 “CHANGE INTERRUPT RETURN ADDRESS TO 
003740 012712 000232 MOV #232.  @ADINT :CAUSE A HALT IF AN INTERRUPT OCCURS 
003744 104400 TEST21: SCOPE 

-CHECK FOR SIMULTANEOUS INTERRUPTS ON MORE THAN ONE LEVEL 
003746 004767 006166 JSR 27, INIT INITIALIZE CSR TO ZERO 
003752 012712 004016 MOV ATINT21, AADINT :SETUP RETURN ADDRESS 
003756 052767 000340 174012 BIS #340, PS =SET PROCESSOR TO LEVEL 7 
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1267 003764 016762 174006 000002 MOV PS 2(ADINT) ;STORE PROCESSOR STATUS 

1268 003772 042767 000340 173776 BIC #340, PS :SET PROCESSOR TO LEVEL 0 

1269 904000 012714 177777 MOV #-1.'  a@CDC SET UP COLUMN COUNT TO READ 7 COLUMN 
12 012715 016044 MOV WBUFBEG.@CDA § :SET UP BUS ADDRESS 

1271 004010 012713 000101 MOV #101,  acDS :SET INTERUPT ENABLE AND READ 

1272 004014 000777 BR WAIT FOR INTE 

1 004016 022626 TINT21: CMP (sp)+. (SP)+ “RESTORE STACK RUINTER 

1274 01 rie 004042 MOV ATINAT , @ADINT :C RETRUN ADDRESS 

1275 4 173746 CLR “SET PROCESSOR TO LEVEL 0 

1276 004030 000240 NOP “WAIT 

oe 004032 016267 000002 173736 MOV 2(ADINT) .PS “RESTORE PROCESSOR TO LEVEL 7 

1279 004042 022626 TINA21: CMP (SP)+, (SP)+ RESTORE STACK 

1 004044 104 HLT “THE INTERRUPT OCCURRED AT 2 LEVELS 
1281 004046 00501 CONT21: CLR acps “DISABLE INTERRUPTS 

1282 004050 005037 000232 CLR an232 “CHANGE INTERRUPT RETURN ADDRESS TO 
1285 004054 012712 000232 MOV #232.  @ADINT :CAUSE A HALT IF AN INTERRUPT OCCURS 
1285 004060 104400 TEST22: SCOPE 

1286 =CHECK THAT NON-EXISTANT MEMORY IS DETECTED PROPERLY 

1287 004062 004767 006052 JSR : INITIALIZE CSR TO ZERO 

1288 004 012712 004132 MOV #TINT22, SADINT “SETUP RETURN ADDRESS 

1289 004072 052767 000340 173676 BIS #340, PS “SET PROCESSOR TO LEVEL 7 

1290 004100 016762 173672 000002 MOV PS 2(ADINT) :STORE PROCESSOR STATUS 

1 004106 042767 000340 173662 BIC #340, PS :SET PROCESSOR TO L 

1298 004114 012714 177773 MOV #-5 @cDC §_:SET UP COLUMN COUNT TO READ 1 COLUMN 
1293 004120 012715 160000 MOV #160000,aCDA §_:SET UP BUS ADDRESS TO NON-EXISTANT MEMORY 
1294 004124 012713 000161 MOV #161, @CDS § :SET INTERUPT ENABLE AND READ, X MEM BITS SET 
1295 004130 000777 BR : “WAIT FOR INTERRUPT 

1296 004132 022626 TINT22: CMP (SP)+, (SP)+  ;RESTORE STACK 

1297 004134 005037 000232 CLR ay232 ;CHANGE INTERRUPT RETURN ADDRESS TO 
1298 004140 012712 000232 MOV #232. @ADINT :CAUSE A HALT IF AN INTERRUPT OCCURS 
1299 004144 105713 TSTB. =—s-« ACS : CHECK FOR CONTROLLER READY 

1 004146 100401 BMI +4 ; H IF SET OK 

1301 004150 104000 HLT “CONTROLLER READY DIDN'T SET 

1308 004152 005713 TST acps [CHECK FOR ERROR (BIT 15) 

1304 004154 01 BMI +4 “BRANCH IF SET OK 

1305 004156 000 HLT “ERROR BIT 15 NOT SET 

1307 004160 032713 001000 BIT #1000, @CDS =; CHECK FOR NON-EXISTANT MEMOPY (BIT 9) 
1308 004164 001001 BNE +4 H IF SET OK 

1309 004166 HLT “BIT oi NOT SET 

1311 004170 032713 000040 BIT #40.  @CDS § ;CHECK FOR EXTENDED MEMORY BIT 17 SET 
1312 004174 001001 BNE +4 =BRANCH I 

1313 004176 104000 HLT “EX-MEM BIT 17 GOT CLEARED 

1315 004200 032713 000020 BIT #20.  a@CDS § ;CHECK FOR EX-MEM (BIT 4) 

1316 004204 001001 BNE +4 “BRANCH IF SET OK 

7 004 HLT “EX-MEM (BIT 4) GOT CLEARED 

1319 004210 032713 076417 BIT #076417,a@CDS |; CHECK FOR ANY OTHER BITS 

1320 004214 001401 BEQ +4 “BRANCH IF OK 

1321 004216 104000 HLT “EXTRA ERROR BITS SET 
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ZCDAD.P11 80 11:18 LOGIC FUNCTION TESTS SEQ 0025 
1323 006220 022715 160002 CMP #160002,aCDA CHECK ADDRESS BUFFER 

1324 004224 001401 BEQ tw #4 “BRANCH 

1325 004226 104000 HLT BUS ADDRESS REG CHANGED 

1327 904230 020714 177774 CMP s=G, = @CDC_-—; CRECK COLUMN COUNT REG 

1 004234 1401 BEQ +4 ; BRANCH 

1329 004256 HLT “COLUMN COUNT REG CHANGED 

1331 :CHECK SW7 AND RETURN TO TEST1 IF SET, AFTER RINGING BELL 

1 SOTHERWISE GO INTO THE DATA TEST 

1335 004240 104400 ENDCK: SCOPE 

1334 004242 052767 000200 173520 BIT #200, SWR 

1335 004250 001406 BEQ _——DATST 

1336 004252 004767 005710 JSR & ,BELL 

1337 004256 005167 174244 COM —sTRFLG ;TOGGLE TRACE FLAG 

1338 004262 000167 174552 JMP —sRESTRT 

1340 

1341 

1343 

Me 

1346 5 RRERARRRARRR AREER AER ERERAR AAA AREA AAR AE AREER RERER ARR A RARER SES 
1347 “DATA RELIABILITY TEST FOR CD11 

1348 = RRERAREERRRAAAREAA EAA AEAE AREA AAA ALAA AAA ALAA REAR AAA TAAL AA ARERR AR EEE E SS 
1349 

1350 :CHECK SWR FOR TYPE OF DECK BEING TESTED, AND INITIALIZE POINTERS 

1351 004266 005067 002236 DATST: CLR — CLCNT ;MAKE SURE COLUMN COUNT IS ZERO 

1352 004272 005067 002230 R — CDCNT “SETUP CARD COUNT TO ENTER DATA TABLE AT BEGINNING 
1395 04876 003067 174230 CLR —-ERFLG “FLAG SET PREVENTS PRINTING OUT ERROR HEADING 
1354 004502 052767 173260 BIT #20, SWR CHECK BIT 4 OF SUR FOR TYPE OF DECK 
1355 004510 001412 BEQ ALP HIF NOT SET TO LOAD ALPHANUMERIC POINTERS 
1356 004312 012767 013330 002 MOV ABINCD, TSTART :BIT 2 SET. LOAD BINARY TABLE POINTERS 
1357 004320 012767 013570 002176 #BINEND+2 , TEND 

1358 004326 012767 015133 001632 Mov § #MSG15, DECK 

1359 004334 000411 BR CONTD :BRANCH AROUND ALPHANUMERIC POINTERS 

1360 004336 012767 012750 002156 ALP1: MOV § MALPCD, TSTART ;:LOAD ALPHANUMERIC TABLE POINTERS 

1361 004344 012767 013210 002152 MOV § WALPEND+2,, TEND 

1362 004352 012767 015122 001606 MOV  #MSGI4, DECK 

1363 004 174142 CONTD: TST  TRFLG :CHECK TRACE TRAP FLAG 

1364 004 BNE  —- TPT H_IF FLAG WAS SET 

15 004366 912767 000340 173402 NOTRPT: MOV #340, PS SCLEAR TRACE BIT 

1367 004376 032767 010000 173164 TRP1: BIT #10000, :CHECK SWi2 TO INHIBIT TRACE TRAPPING 

1368 004404 0013 BNE TRP) H IF SET 

1369 004406 012767 000360 173362 MOV #360, PS :SET TRACE BIT 

1320 004414 004767 005520 DCNT1: JSR  %7, INIT INITIALIZE CARD READER STATUS REGISTER 
1378 :SET UP INTERRUPT SERVICING, AND START READI 

1373 004420 012712 004552 MOV WSRVC, @ADINT ;SETUP RETURN POINTER 

1374 004424 04276 0 173344 BIC #340, PS :SET PROCESSOR TO LEVEL 0 

1375 004432 016762 173340 000002 MOV PS, __ 2CADINT) ;STORE CURRENT STATUS 

1376 016701 002056 MOV _—«*TSTART, RI TABLE POINTER 

1377 004444 012700 016044 MOV © ABUFBEG, :SET UP BUFFER POINTER 

1378 004450 012767 177660 002032 MOV #120, ‘SIZE  :SET UP "SIZE" 








2 
DADO CD11 CARD READER DIAG MACY11 30A(1052) 26-MAR-80 11:21 NAGE 26 
DAD.P11 aah :18 DATA REC IABILITY TEST SEQ 0026 
379 004456 012767 177660 002026 MOV #-120, OFFSET 
org 7e7 002020 MOV SIZE. acDC ;:SET UP COLUMN COUNT 
1 0044 1 MOV RO aCDA :SET UP ADDRESS REG 
re 01 000100 MOV 700, @CDS | ;ENABLE INTERUPTS 
76 032767 000010 173964 BIT #10,  SWR ;CHECK FOR PACK MODE ONLY 
406 BEQ CDREAD H IF NOT SET 
5 004 0 00004 177570 BIT #4, awSWR <=CHECK FOR IMAGE MODE ONLY 
904 BNE “BRANCH IF S$ 
PAKSET SET UP FOR PACKING MODE 


VENSRVAR 
Ses eSkakine 
SBusoso se 

S 

zs 

S 






C 

C 

1 

1 

1 

1 

1 

1 

7 

} 

1 6 005213 CDREAD: INC acds =RE 

1 524 032713 004000 BKGND: BIT #4000, a@CDS | :CHECK FOR DATA ERROR 

1 ‘ 775 BEQ BK GND 

1 532 011467 001776 MOV @aCDC. DERCNT ;SAVE THE COLUMN COUNT 

1 604536 032713 004000 BKGND1: BIT #4000. aCDS | :CHECK FOR DATA ERROR 

1 542 001375 BNE BK GND “BRANCH IF SET 

1 544 005067 001764 CLR DERCNT “CLR COLUMN COUNT SAVER 
550 000765 BK GND 

1 : INTERRUPT SERVICE ROUTINE WHICH RUNS DATA RELIABILITY TES: 
1 004552 105713 SRVC: TSTB  aCDS ;CHECK CONTROLLER READY 

1 004554 100401 BMI +4 H IF SET 

1400 004556 HLT ‘CONTROLLER READY NOT SET 
1401 560 032713 000002 BIT #2, @cDS § :CHECK FOR DATA PACK MODE 
1408 004564 001402 BEQ ISR “BRANCH IF IMAGE MODE 

140 566 000167 000470 JMP PSR : JUMP TO PACK MODE ROUTINE 
1208 004572 032713 177477 ISR: BIT #177477.aCDS | ; CHECK ALL BITS EXCEPT 6 AND 7 
1406 004576 001157 BNE ISRER ‘BRANCH TO ERROR ROUTINE 
140 005714 TST acDc *CHECK COLUMN COUNT 

1408 001 +4 “BRANCH IF OK 

1409 1 HLT “COLUMN COUNT REGISTER NOT 0 
1411 0067 001702 MOV RO, BUF END 

1418 12 166767 001672 001674 SUB SIZE. BUFEND 

141 166767 001664 001666 SUB SIZE, E 

1414 715 001662 CMP , acDA 

1415 1401 BEQ + 

> i 

1418 016767 001646 173656 ISRNC: MOV SIZE. COUNT ;SET UP COLUMN COUNTER 

141 1 ISRLP: CMP (RO)+, (R1)+  :TEST THE DATA 

14 1035 BNE ISRDE “BRANCH IF DATA ERROR 

14 167 001650 ISRRT: CMP R1, TEND §:CHECK FOR END OF TABLE 

14 100402 BMI +6 “BRANCH IF NOT 

14 016701 001640 MOV TSTART, R1 “MOVE POINTER TO TOP OF TABLE 
14 005267 173634 INC COUNT *CHECK FOR END OF BUFFER 

1 001412 BEQ 1 SRBE : H IF BUFFER END 

1 526 001634 INC CLCNT “KEEP TRACK OF COLUMNS 

1 74 026727 001630 000120 CMP CLENT, #120  :CHECK FOR END OF CARD 

1 1360 BNE ISRLP “BRANCH IF NOT END OF CARD 
1 767 001402 JSR 27, NXCRD :INC TO NEXT CARD 

14 710 5721 TST (Ri) + “UPDATE TABLE POINTER FOR NEXT CARD 
14 71 754 BR ISRLP 

1433 004714 001372 ISRBE: JSR 47. NXCRD  :GO TO NEXT CARD 

1434 004720 005721 ISRNX: TST (Ri)+ 
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D11 CARD READER i MACY11 30A(1052) 26-MAR-80 11:21 PAGE 27 
1 26-MAR-80 11:1 


SESSEREERE FEE 


DATA RELIABILITY TEST SEQ 0027 
032767 000004 172640 BIT #4, =CHECK FOR IMAGE MODE ONLY 
901 90¢ BNE 1 SRNX “BRANCH IF Ser 
67 001156 JSR 7. PAKSET :SET UP FOR PACKING MODE 
000167 001066 ISRNX1: JMP SRE TRN “CALCULATE ‘‘SIZE’’ AND RETURN 
=DATA ERROR WAS DETECTED. OUTPUT ERROR PRINTOUT 
742 767 001560 ISRDE: TST CDCNT ; CHECK FOR FIRST CARD 
746 1045 BNE ISRD2 :8 CH IF NOT 
7 6) ISRD1: TST ~(RO) UB 2 FROM POINTER 
752 005267 001550 INC CDCNT 
756 «(0 ¢! CMP (RO)+, (R1)+  ;TEST THE DATA 
7 1031 BNE 1$ H IF NOT THE SAME 
7 1 000042 ADD #42, RI “ADD THE MAGIC NUMBER 
766 020167 001532 CMP R1, TEND = CHECK FOR RAP AROUND 
2 BLE 2$ “BRANCH IF NOT 
774 162701 000240 SUB #260, R1 “RAP AROUND 
026011 000042 2$: CMP 42(RO). (R1)  :CHECK FOR DOUBLE MATCH 
001010 BNE 3$ “BRANCH IF NOT 
162701 000042 SUB #42, RI ; SUBTRACT THE MAGIC NUMBER 
12 020167 001504 CMP R1, TSTART =CHECK FOR RAP AROUND 
016 003314 BGT ISRRT ;BRANCH IF NOT 
905020 062701 000240 ADD #240, R1 AROUND 
005024 000711 BR ISRRT “GO CHECK REST OF DATA 
005026 162701 000042 3S: SUB #42, RI : SUBTRACT MAGIC NUMBER 
020167 001464 CMP R1, TSTART =CHECK FOR RAP AROUND 
003002 BGT 1$ “BRANCH IF NOT 
5040 062 1 000240 ADD #240, R1 “RAP AROUND 
167 001454 1$: CMP R1, TEND 
001337 BNE ISRD1 
16701 001444 MOV TSTART, R17 
3067 001444 CLR CDCNT :RESET CARD COUNTER 
032767 020000 172500 ISRD2: BIT #20000, SWR “CK SW13 FOR INHIBIT PRINTOUT 
1015 BNE ISRDES “BRANCH IF SET 
767 001050 JSR 27, TYHEAD :TYPE HEADING, DECK, CDCNT, CLCNT 
26 014167 005456 MOV =(R1).PRINT]  :TYPE -(R1) IN OCTAL 
1 767 506 JSR %47,.PRINTR “TYPE LEADING ZERO'S 
1 013719 TYPE, SPACE 
112 014067 005442 MOV =(RO) PRINT? — ; TYPE ~(RO)_ IN OCTAL 
116 004 67 005472 JSR %47,.PRINTR TYPE LEADING ZERO'S 
122 20 1 CMP (RO)+, (R1)+ ‘RESET POINTERS 
124 7? 172440 ISRDE4: TST Sw :CHECK FOR HALT ON ERROR 
130 100001 BPL +4 {BRANCH IF HALT ON ERROR NOT SET 
1 HALT “HALT ON ERROR SET 
1 5 BR ISRRT 


; INTERUPT DUE TO SOME KIND OF ERROR 
; THESE ERRORS ARE DESASTEROUS, ay ny THE DATA TEST _IS RESTARTED 
1SRER: ] ISRE1 H ON ERROR BIT 15 


5136 100402 6M 

3123 104000 HLT sERROR BIT 15 NOT SET 

142 000445 BR ISRST 
003154 Oris 010000 ISRE1: aT — acbds CHECK FOR OFF-LINE 

2135 0327135 040000 BIT #40000, aCDS ;CHECK FOR CARD READER ERROR 
005156 001002 BNE +6 ;BRANCH IF SET 


CZCDADO CD11 CARD RE 





CZCDAD.P11  26~MAR 
1491 005169 104000 
149¢ 005162 000411 
1494 005164 004767 
1495 005170 002222 
1496 005172 | 
1497 005174 0004 
1498 
1499 005176 032713 
1500 005202 001401 
1301 005204 104000 
1503 005206 032713 
1504 009212 001401 
1305 005214 104000 
1507 905216 032713 
1308 005222 001401 
1509 005224 104 
1510 
1511 005226 032713 
191g 05232 001401 
iq Som es 
1515 005236 032713 
1916 005242 001401 
151 44 104000 
1518 005246 032713 
1519 005252 001001 
1520 005254 104000 
1321 005256 000167 
1358 005262 032713 
1524 005266 001170 
1525 005714 
15 72 001401 
15 74 104000 
1528 005276 010067 
1529 005302 166767 
15 10 026715 
ia us lee 
1833 905820 O16767 
15 122021 
1535 005 1047 
1536 005332 020167 
1537 005336 100402 
1538 005340 016701 
1539 005344 00526 
1540 1412 
1541 
1342 ? 
1543 005 1 
1544 767 
1545 005372 105721 
1546 005374 000754 





001062 


040000 


020000 


004000 


001166 


001156 
173152 


001152 
001146 


000720 


001204 


173174 


000120 


AgER FEY MACY11 30A(1052) 
-~BG 11:1 


ISRE2: 


ISRE3: 


ISRST: 


PSR: 


PSRNC: 
PSRLP: 


PSRRT: 





26-MAR-80 11:21 


DATA RELIABILITY TEST 


HLT 


ISRE3 

a7, LASTCD 
ISRNC 

ISRST 

#40000, acDS 
+4 


#20000, acDS 
+4 


#4000, aCDS 
+4 


#2000, 
+4 


acds 


#1000, acDS 
+4 
#077000 ,aCDS 
+4 


DATRST 
#177475 ,acDS 
PSRER 


acdc 
+4 


— ee —— -———— 


tc 3 
PAGE 28 


OFF-LINE BUT NOT CARD READER ERROR 


CHECK FOR LAST CARD 
BRANCH IF 80TH CARD 
CARD READER ERROR BUT NOT 80TH CARD 


a ‘7 CARD READER ERROR 


H NOT 
;CARD READER ERROR BUT NOT OFF LINE 
END OF FILE ERROR (M1200 ONLY) 
;DATA ERROR 


;DATA LATE ERROR 


BRANCH IF AT LEAST ONE 

NONE OF THE ERROR BITS SET 
RESTART THE ENTIRE DATA TEST 
CHECK ALL BITS EXCEPT 1.6 AND 7 
: H TO ERROR ROUTINE 

7CHECK COLUMN COUNT REG. 

;BRANCH IF OK 


7SET UP COLUMN COUNTER 
: TEST THE DATA 

BRANCH IF DATA ERROR 
;CHECK FOR 4 OF TABLE 


H IF 
MOVE POINTER TO TOP OF TABLE 
;CHECK FOR END OF BUFFER 
;BRANCH BUFFER END 
;KEEP TRACK OF COLUMNS 
:CHECK FOR END OF CARD 
BRANCH IF NOT END OF CARD 
:GO TO NEXT CARD 
:UPDATE TABLE POINTER FOR NEXT CARD 


SEQ 0028 
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CD11 CARD READER DIAG MACY11 30A(1052) 26-MAR-80 11:2 
11 26-MAR-80 11:1 DATA RELIABILITY TES SEQ 0029 
005376 004767 000710 PSRBE: JSR 27. NXCRD :GO TO NEXT CARD 
2 105721 PSRNX: TSTB  (R1)+ 
032767 000010 172156 BIT #10, SWR 
12 001014 BNE PSRNX1 
14 162767 000240 001100 SUB #160.. TSTART =MOVE TABLE POINTER TO IMAGE TABLE 
162767 000120 001074 SUB .. TEND 
005430 162701 900240 SUB #160., R1 :UPDATE TABLE POINTER 
0054 701 001 ADD CDCNT. R1 “COMPENSATE FOR BYTES 
005440 042713 000002 BIC #2, @CDS §_:CLR PACKING MODE BIT 
000167 000360 PSRNX1: JMP SRETRN “CALCULATE ‘‘SIZE’' READ MORE CARDS 
:DATA ERROR WAS DETECTED, OUTPUT ERROR PRINTOUT 
005450 005767 001052 PSRDE: TST CDCNT 
005454 001045 BNE PSRD 
009436 105740 PSRD1: TSTB -(RO) :SUB 1 FROM POINTER 
460 005267 001042 INC CDCNT 
122021 cMPBOts«é«(RO) +, «(R1)+ + ~=—- TEST _THE DATA 
0010 1 BNE 1$ “BRANCH IF NOT THE SAME 
70 062701 000021 ADD #21, R1 “ADD THE MAGIC NUMBER 
74 020167 001024 CMP R1, TEND § :CHECK FOR RAP AROUND 
300 003402 BLE 2$ “BRANCH IF NOT 
5502 162701 000120 SUB #120, 1 “RAP AROUND 
5 126011 000021 2$: CMPB -—s«-.21(RO). (R1) : CHECK FOR DOUBLE MATCH 
51 1010 BNE 3$ “BRANCH IF NOT 
009314 162701 000021 SUB #21, =I “SUBTRACT THE MAGIC NUMBER 
3520 020167 000776 CMP R1, TSTART =CHECK FOR RAP AROUND 
005524 003302 BGT PSRRT BRANCH 
005526 062701 000120 ADD #120, 1 *RAP AROUND 
005532 000677 PSRRT “GO CHECK REST OF DATA 
005534 162701 000021 3S: SUB #21, RI : SUBTRACT MAGIC NUMBER 
005940 020167 000756 CMP R1, TSTART =CHECK FOR RAP AROUND 
5544 003002 BGT 1$ “BRANCH IF NOT 
5546 062701 000120 ADD #120, R1 “RAP AROUND 
3932 020167 000746 1S: CMP R1, TEND 
5556 001337 BNE Pp 
5560 016701 000736 MOV TSTART, R1 
3564 005067 000736 CLR CDCNT :RESET CARD COUNTER 
33 032767 020000 171772 PSRD2: BIT #20000, SWR “CK SW13 FOR INHIBIT PRINTOUT 
576 001017 BNE PSRDE3 “BRANCH IF SET 
004767 2 JSR 7. TYHEAD :TYPE HEADING, DECK, CDCNT, CLCNT 
00 013715 TYPE, SPA 
005610 114167 745 =(R1), PRINT1+1 :MOVE BYTE INTO PRINT BUFFER 
005614 004767 004754 JSR 27, PRINTB ; AND PRINT IT 
000004 013712 TYPE, SPACE-3 
4 114067 004731 MOVB’ =-(RO), PRINT1+1 :MOVE BYTE INTO PRINT BUFFER 
004767 004740 JSR 47 INTB : PRINT IT 
122021 CMPB —s-« (RO) +, += (R1)+ «=: RESET POINTERS 
005636 005767 171726 PSRDE3: TST SwWR “CHECK FOR HALT ON ERROR 
2 100001 BPL +4 “BRANCH IF HALT ON ERROR NOT SET 
005644 000000 HALT “HALT ON ERROR SET 
5646 000631 BR PSRRT 
: INTERUPT DUE TO SOME KIND OF ERROR 
005650 100402 PSRER: BMI PSRE1 «BRANCH ON ERROR BIT 15 


— 


CZCDAD.P11 
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ee ee ed eed aed oe od 
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PES SESS See Sette sey al 


1651 


as 


SARE 
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104000 
000463 


032713 


032713 
001401 
032713 
001401 
032713 
001401 
032713 
001401 
104000 
0327135 
001001 


104000 
000167 


066767 
100404 
012767 
000770 
032767 
001004 
012767 


o 
-CZCDADO CD11 CARD READER DIAG 
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004000 
000002 


000020 
177660 


010000 
040000 


000312 
177352 
000526 
040000 


020000 


002000 


001000 


077000 


177276 


177660 


MACY11 30A(1052) 


171666 


172606 


PSRE1: 


PSRE2: 


1$: 


PSRES: 


PSRE4: 


PSRST: 
;RETURN PORTION OF ec SERVICE ROUTINE 
(NUMBER OF COUMNS 


26-MAR-80 





& 3 
11:21 PAGE 30 


DATA RELIABILITY TEST 


HLT 
BR 


ERROR BIT 15 NOT SET 


PSRST 
#4000, acpds 
p :BRANCH IF NOT 
#2, acDs 
+4 
44 “BRANCH IF BINARY DECK 
#-120. COUNT  ;ONLY READ ONE CARD 
#10000. aCDS § :CHECK FOR OFF-LINE 
#40000. @CDS =: CHECK FOR CARD READER ERROR 
+6 “BRANCH IF SET 
“OFF-LINE BUT NOT CARD READER ERROR 

PSRE4 
47, LASTCD :CHECK FOR LAST CARD 
1$ “BRANCH IF NOT 
PSRNC “BRANCH IF 80TH C 

“CARD READER ERROR R BUT NOT 80TH CARD 
DATRST “RESTART THE ENTIRE TEST 
#40000, @CDS CHECK FOR CARD READER ERROR 
+4 “BRANCH H IF 

“CARD READER ERROR BUT NOT OFF LINE 
#20000, acps 
.+ 

:END OF FILE ERROR (M1200 ONLY) 
#2000, acDs 
: :DATA LATE ERROR 
#1000. acDs 
? :NON-EXISTANT MEMORY ERROR 
#077000.aCDS § :CHECK ALL ERROR BITS 
+4 “BRANCH IF AT LEAST ONE 

“NONE OF THE ERROR BITS SET 
PSRLP “GO CHECK THE DATA 


: CALCULATES A NEW ‘SIZE’ 


-SETS UP THE CARD RE 

=THEN DOES AN RTI TO THE BACK 
SRETRN: ADD OFFSET, SIZE 
SRETR1: 
SRETR3: MOV 


BM] 
MOV 
BR 

BIT 


SRETR 
#~-1 20, 


READ) 


TO BE RE 
ADER BUFFERS. AND ISUES THE READ COMMAND 
KGROUND ROUTINE 


OF FSET 


SRET 
#001000, SIZE 


SRETR 
#120, 


OF FSET 


OL LLL LLL . . 





SEQ 0030 


: 
| 


— oe eee eee 


LDL LLL 
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_ 
oO 
wn 
wo 


SESS REREE 


AAAAO 
aaa 


RADAX 
BAIVSOAS 


SESRSPREES 


ee ee eee Le 


ao 
oO 
ab 


Oono 
SPER 


SSS2S3 


SESESRRS 


ed est 


me ee ee ee ee et ed ed ed ed ed ed ed 
~~NNNS 


~ 
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Pwn—o 


=f 


eee 


BEE5 


RSFSNE 


es 


—_w’ a2 J) =) =) — —) — 


SSSSREEE 
NISRSE 


me 


016767 
7 


000156 


000406 
016044 


172360 


172352 
015055 


013715 
26 


MACY11 30A(1052) 


000400 
000374 


004352 


004324 


000236 
000232 


000216 
000120 


000120 


26-MAR-80 


. 3 
11:21 PAGE 


DATA RELIABILITY TEST 


31 


:CHECK FOR MORE THAN 80 CARDS 


;BRANCH IF GREATER 


SET UP_COLMN COUNT 

:RESET TABLE POINTER 
;SET UP ADDRESS REG 

;READ 


TO = ‘wee _ AND MOVE THE POINTERS FOR THE DATA. 


TO pin § es 1 eck DECK, CARD COUNT, 


SET 


MOVE TABLE POINTER TO PACKED TABLE 


;UPDATE TABLE POINTER 
: COMPENSATE FOR BYTES 
:SET PACKING MODE BIT 


AND COLUMN COUNT 
Ck FOR FIRST ERROR 
H IF NOT 


FLAG 
= TYPE HEADING FOR DATA ERRORS 
SOUTPUT TYPE OF DECK 
:POINTER TO DECK TITLE 
ADJUST CADR COUNT 
: TYPE CDCNT IN OCTAL 


: TYPE LEADING ZERO'S 
:READJUST CADR COUNT 


;ADJUST COLUMN COUNT 

ies: CLCNT IN OCTAL 
TYPE LEADING ZERO'S 

“ READJUST COLUMN COUNT 


RESET COLUMN COUNT 
sKEEP TRACK OF CARDS 
7CHECK FOR 80TH CARD 


;RETURN 


;CORRECT STACK POINTER TO REPLACE RTS 


BR SRETRN 
SRETR4: JSR ae is LASTCD 
BGT 
MOV SIZE.  aCDC 
MOV #BUF oR 
MOV RO, acDA 
INC acDs ; 
RTI 
; SUBROUT INE 
PAKSET: ADD be 
ADD #80. ald 
ADD #160... 1 
SUB CDCNT. 2&1 
BIS #2, acDdSs 
RTS %7 
: SUBROUT INE 
TYHEAD: TST 
BNE NOHEAD 
INC ERFLG 
TYPE, MSG13 
NOHEAD: TYPE 
DECK: DUMMY 
TYPE, SPACE 
INC CDCNT 
MOV CDCNT .PRINT1 
JSR %7,PRINTR 
DEC CDCNT 
TYPE, SPACE 
INC CLCNT 
MOV CLCNT ,PRINT1 
JSR %7,.PRINTR 
DEC CLCNT 
TYPE, SPACE 
RTS %7 
; SUBROUTINE TO CHECK FOR LAST CARD 
LASTCD: MOV SIZE, TEMP1 
MOV CDCNT, TEMP2 
LSTCD1: INC TEMP2 
ADD #120, TEMP 1 
BMI LSTCD1 
CMP TEMP2, #80. 
RTS 
; So TO KEEP TRACK OF CARDS 
NXCRD: CLR CLCNT 
INC CDCNT 
CMP CDCNT, #120 
BGE ALLDON 
RTS %7 
ALLDON: TST (6) + 
CMP (6)+, (6)+ 


=CORRECT STACK POINTER TO REPLACE RTI 


LL LL LLL oes ae owe ee ~ 


SEQ 0031 


a a aa. 


r G 3 
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7CDAD.P11  26-MAR-80 11:18 DATA RELIABILITY TEST SEQ 0032 
7, RING BELL 
Ha seer 043780 itive Ww aio 20 “LOAD CONTENTS OF SOFT VECTOR 42 
5 BEQ HOOK 1 “BRANCK IF NO HOOK 
at poe 880008 RESET SCLEAR ALL 1/0 
1318 ieker JSR 17. (RO)  =RETURN TO MONITOR 
Tee eee 8e6 90040 NOP 
1 40 NOP 
00004 HOOK1: BIT #40, SWR =CHECK SWR FOR HALT AT END OF DECK 
i 2 se aN satiate BEO ONL INE “CONTINUE IF NOT SET 
1725 74 000000 HALT “END OF DECK,SWS SET 
7 6 006376 000427 BR DECKCK 
0064 0000 ONLINE: BIT #10000, aCDS §_ ; CHECK FOR OFF-LINE 
1 eat en " BEQ DECKCK “BRANCH IF NOT 
1 005713 TST acps “CHECK FOR ERROR (BIT 15) 
1731 908410 100401 BM! +4 “BRANCH IF SET OK 
1 006412 104000 HLT “ERROR BIT 15 NOT SET 
1 
0064 0000 BIT #40000, @CDS § ;CHECK FOR CARD READER ERROR 
Wx $0GON% or00T sa IE CH GF Set 
1 006422 HLT “OFF-LINE NOT DUE TO CARD READER ERROR 
1 
0064 1 BIT #023471.aCDS §_ ; CHECK FOR EXTRA BITS SET 
He 0064 ( OFe 7 Ot — BEQ +6 “BRANCH IF OK 
1740 006432 104000 HLT “EXTRA ERROR BITS SET 
1741 
0064 0064 MOV HONINT, @ADINT ;SET UP INTERUPT VECTOR 
8 vert 058001 ” WAIT “WAIT FOR AN INTERUPT 
1744 006442 000776 BR -2 “WAIT ON TRACE TRAPS 
1745 
NT: BIT #10,  acDS ;CHECK FOR TRANSITION TO ON LINE 
Ve tas erty common: gg gaa Tos! 
1748 006452 104000 HLT ONIERUPT. BY OTHER THAN BIT 3 SETTING 
1749 
0064 CMP (SP)+, (SP)+  ;RESTORE THE STACK 
15a9 : WHEN CONTINUING FROM ONE DECK TO ANOTHER, CHECK SwW6 FOR TYPE 
: OF TE FORME 
138 006456 005167 172044 DECKCK: COM TRFLG ;TOGGLE TRACE FLAG 
oa; 032767 000100 171100 BIT #100, SuR ae CHECK Su6 
1586 $0e7 oD Sees 172322 JMP RESTRT “RERUN COMBINED INSTRUCTION AND DATA TEST 
1752 006476 000167 175564 JMP DATST 
TRST: CMP (SP)+, (SP)+ : RESTORE THE STACK 
1761 
77 SIZE: -120 
ree teat 157660 Sree es 2150 
1764 006514 000000 BUFE 
1765 006516 000000 a : . 
1589 522 000000 TSTART: 0 -STARTING ADDRESS OF DATA TABLE 
1768 524 000000 oe ; END ADDRESS OF DATA TABLE 
1769 0065 000000 CDCNT: O R OF CARD BEING READ 
1795 006530 000000 CLCNT: 0 “NUMBER OF COLUMN BEING CHECKED 
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* 006532 000000 PTOFF: O OFFSET TO POINTER FOR DATA PRINTOUT 
0065 000000 DERCNT: 0 [DATA ERROR COLUMN COUNT 
SETUP FOR ERROR FUNCTION TEST 
006536 005067 171776 ER1200: CLR CD1000 CARD READER IS M-1200 
006542 000167 O0LV06 JMP ER12CD 
006546 012767 177777 171764 ERCD11: MOV #177777, CD1000 ;CARD READER IS M1000 
006554 004767 171762 ER12CD: JSR %7, SETUP S INITIALIZE REGISTERS 
006560 012767 006574 0035652 MOV #TESTA+2,RETURN :SETUP SCOPE LOOP RETURN ADDRESS 
006566 005067 005642 CLR I TMAX ;RUN EACH ERROR TEST ONCE ONLY 


HALT SHOULD CAUSE DATA LATE ERROR (BIT 10) 
: SHOULD SET ERROR (BIT 15) 


006572 104400 TESTA: SCOPE 
006574 004767 003340 JSR 47, ~—s'INIT ~—s; INITIALIZE STATUS REGISTER 
006600 000004 013725 TYPE, CRLF 
006604 000004 015423 TYPE,  MSG22 ;"WHEN PRINTING STOPS PUT HALT AND 
906610 900004 015466 TYPE,  MSG23 “SINGLE BUS CYCLE DOWN, AND HIT ‘CONTINUE ON THE 
14 000004 015551 TYPE,  MSG24 CONSOLE UNTIL ONE CARD IS READ 
000004 015612 TYPE,  MSG25 STHEN FoT UP THE TWO SWITCHES AND HIT 
4 000004 TYPE,  MSG26 :"CONTINUE' ON THE CONSOLE 
906630 900004 013720 TYPE,  CRLF~ :MOVE MESSAGE UP ON TTY 
012714 177701 Mov #-77,  @CDC = SET UP COLUMN COUNT 
Q 012715 MOV ,@CDA «SET-UP BUS ADDRESS 
000000 HALT 
006646 005213 INC acDS ZSTART READING 
006650 105713 TSTB CDS SCHECK FOR CONTROLLER READY 
006652 001001 BNE «+4 :BRANCH IF SET Ok 
006654 104000 HLT : CONTROLLER READY FAILED TO SET 
006656 005713 TST — acs ;CHECK FOR ERROR ( BIT 15) 
006660 001001 BNE #4 :BRANCH IF SE 
006662 104000 HLT SERROR BIT 15 NOT SET 
006664 032713 002000 BIT #2000, @CDS CHECK FOR DATA LATE ERROR (BIT 10) 
006670 001001 BNE ss #4 CH IF SET 
006672 104000 HLT ‘DATA LATE BIT 10 NOT SET 
006674 032713 075577 BIT  _#075577,aCDS —_; CHECK FOR ANY OTHER BITS 
700 001401 BEQ a #6 ;BRANCH_IF 
006702 104000 HLT ZEXTRA BITS SET IN STATUS WORD 


: THE CARD READER GOING OFF-LINE SHOULD SET ERROR (BIT 15) 
SAND OFF-LINE (BIT 12) 
ectee ey LINE SHOULD SET ‘‘TRANSITION TO ON-LINE’’ (BIT 3) 


704 104400 S 

206 006767 SR 7, INIT ; INITIALIZE STATUS REGISTER 

712 000004 014027 TYPE,  MSG3 :"PRESS CARD READER 'STOP"” - 
006716 000004 013762 TYPE,  MSG2 THEN HIT * CONTINUE" LON THE CONSOLE 
O6722 900004 013720 TYPE, —CRLF-3 “MOVE MESSAGE UP ON T 
906730 932/13 010000 BIT | #10000,acDS =; CHECK BIT 12 

001001 BNE =. +4 ;BRANCH IF SET 

006736 104000 HLT “OFF-LINE (BIT 12) WASN'T SET 
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C 
“Pl RROR FUNCTION TESTS SEQ 0034 
006740 005713 TST acDs :CHECK BIT 15 
006742 100401 BM! +4 “BRANCH IF SET 
006744 104000 HLT “ERROR (BIT 15) WASN'T SET 
006746 031327 067577 BIT @CDS,#067577 —_; CHECK FOR EXTRA BITS 
006752 001401 BEQ +4 CH IF OK 
006754 104000 HLT “STATUS WORD ERROR 
006756 000004 013726 TYPE, MSG1 :"PRESS CARD READER ‘RESET''’: 
006762 000004 013762 TYPE. MSG2 ‘THEN HIT * CONT INUE * ON THE CONSOLE’’ 
006766 000004 013720 TYPE, CRLF-3 “MOVE MESSAGE UP ON T 
006772 000000 HALT 
774 032713 000010 BIT #10.  a@CDS | ;CHECK FOR TRANSIION TO ON-LINE(BIT 3) 
00 001001 BNE +4 “BRANCH IF SET OK 
007002 104000 HLT “ TRANSITION TO ON-LINE FAILED TO SET 
007004 032713 010000 BIT #10000, @CDS §_ ; CHECK FOR OFF-LINE 
007010 001401 BEQ +4 “BRANCH IF OK 
007012 104000 HLT “OFF-LINE STILL SET 
007014 005713 TST acDs =CHECK ERROR (BIT 15) 
007016 100401 BM] +4 “BRANCH IF STILL SET 
007020 104000 HLT “ERROR BIT 15 CLEARED 
007022 032713 077567 BIT #077567.aCDS_ _ ; CHECK FOR EXTRA BITS 
007026 001401 BEQ +4 : H IF OK 
007030 104000 HLT “EXTRA STATUS BITS SET 
: TRYING TO READ WHEN CARD READER IS OFF-LINE SHOULD CAUSE AN INTERUPT 
“CHECK THAT AN INTERRUPT OCCURS WHEN THE CARD READER COMES ON LINE 
007032 104400 TC: SCOPE 
007034 004767 003100 JSR %7. INIT s INITIALIZE STATUS REGISTER 
007040 012712 007112 MOV #TINTC, @ADINT :LOAD RETURN POINTER 
007044 052767 000340 170724 BIS #340, PS “SET PROCESSOR TO LEVEL 7 
007052 016762 170720 000002 MOY 2{ADINT) :LOAD RETURN PROCESSOR STATUS 
00 042767 000340 170710 BIC WhO, PS :SET PROSSOR PRIORITY TO 0 
012713 000100 MOV #100. acDS §§:SET INTERUPT ENABLE 
007072 000004 014027 TYPE, MS :* PRESS CARD READER 'STOP*'’ 
007076 000004 013720 TYPE,  CRLF-3 “MOVE MESSAGE UP ON TTY 
007102 032713 $10000 TLOPC: BIT #10000, aCDS | :WAIT FOR OFF-LINE TO SET 
007106 001775 BEQ TLOPC 
007110 000402 BR CONTC :SKIP INTERUPT HANDLER 
007112 104000 TINTC: HLT :*STOP* SHOULDN'T CAUSE AN INTERUPT 
007114 000002 RTI “RETURN FROM THE INTERUPT 
007116 105713 CONTC: TSTB  acDS =CHECK CONTROLLER READY BIT 7 
007120 100401 BMI +4 : BRAN 
007122 104000 HLT “CU READY DIDN'T SET YET 
007124 005713 TST acDs = CHECK ERROR gIT 
007126 100401 BM] +4 “BRANCH IF 
007130 104000 HLT “ERROR (BIT FS) NOT SET 
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CZCDAD.P11 26-MAR~80 11:18 ERROR FUNCTION TESTS SEQ 0035 
1883 oor az 032713 067477 BIT #067477 ,acDdS ; CHECK ‘? EXTRA BITS 
1884 0071 001401 BEQ +4 : BRANCH 
Wee 007140 104000 HLT ; STATUS WORD ERROR 
1887 007142 012712 007174 MOV A#TINTCA,@ADINT : LOAD RETURN POINTER 
1888 007146 052767 000340 170622 BIS #340, PS ;SET PROCESSOR TO LEVEL 7 
1889 007154 016762 170616 000002 MOV PS, 2(ADINT) a RETURN PROCESSOR STATUS 
1890 0071 042767 000340 170606 BIC #340, PS ;SET PROSSOR PRIORITY TO 0 
1891 0071 005213 INC acods ; TRY TO READ A CARD 
1% 007172 000777 BR ‘ sWAIT FOR THE INTERUPT 
1894 007174 022626 TINTCA: CMP (SP)+, (SP)+  ;RESTORE THE STACK 
1895 007176 105713 TSTB acbds CHECK CONTROLLER READY BIT 7 
1896 007200 100401 BMI +4 :BRANCH IF OK 
1 007202 104000 HLT :CU READY DIDN'T SET YET 
1899 7 032713 010000 BIT #10000, aCDS CHECK FOR OFF-LINE BIT 12 
1900 007210 001001 BNE +4 ;BRANCH IF OK 
yh 007212 104000 HLT OFF-LINE BIT 12 NOT SET 
1908 007214 005713 TST acDs : CHECK ERROR BIT 
1904 007216 100401 BMI +4 BRANCH IF SET 
Hy 007220 104000 HLT ERROR (BIT 15) NOT SET 
1907 007222 032713 067477 BIT #067477 ,acDdS ;CHECK FOR EXTRA BITS 
1908 007226 001401 BEQ +4 BRANCH IF OK 
1 007230 104000 HLT :STATUS WORD ERROR 
1911 007232 012712 007272 MOV ATINTCB,@ADINT ;LOAD RETURN POINTER 
1aN¢ 007236 052767 000340 170532 BIS #340, PS 7SET PROCESSOR TO LEVEL 7 
1913 007244 016762 170526 000002 MOV PS, 2(ADINT) ;LOAD RETURN PROCESSOR STATUS 
1914 007252 042767 000340 170516 BIC #340, PS ;SET PROSSOR PRIORITY TO 0 
1915 007260 000004 013726 TYPE, MSG] 7‘PRESS CARD READER ‘RESET**’ 
1916 007 000004 013720 TYPE, CRLF-3 s;MOVE MESSAGE UP_ON TTY 
yah 007270 000777 BR ; :WAIT FOR THE INTERUPT 
1919 007272 beeeee TINTCB: CMP (SP)+, (SP)+  ;RESTORE THE STACK 
1920 007274 032713 000010 BIT #10, acbds ;CHECK FOR TRANSITION TO ON-LINE(BIT 3) 
1921 00 001001 BNE +4 7BRANCH IF SET OK 
} é 007302 104000 HLT : TRANSITION TO ON-LINE FAILED TO SET 
1924 032713 010000 BIT #10000, acDS CHECK FOR OFF-LINE 
1925 007310 001401 BEQ +4 ; BRANCH 
4 007312 104000 HLT OFF-LINE STILL SET 
19 007314 0057135 TST acDS CHECK ERROR (BIT 15) 
19 007316 100401 BM] +4 “BRANCH IF STILL SET 
3 : HLT ;ERROR BIT 15 CLEARED 
bs 007322 032713 077467 BIT #077467 ,acDS ;CHECK FOR EXTRA BITS 
19 00 001401 BEQ +4 - H IF OK 
ib 0073 104000 HLT EXTRA STATUS BITS SET 
1936 : INPUT HOPPER EMPTY SHOULD SET SPECIAL CONDITION 
1937 *CHECK THAT INTERRUPTS OCCUR WHEN THE CARD READER COMES ON LINE 
1938 007332 104400 TESTD: SCOPE 
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cZ7C¢ 
CZCDAD.P1 RROR FUNCTION TESTS SEQ 0056 
1939 007334 004767 JSR %7, INIT ‘UALS STATUS ees 
1940 00 000004 sree: TYPE, MSGS ;/ REMOVE AL L CARDS FROM THE INPUT HOPPE ‘ 
1941 00 pests 013786 TYPE, MSG2 :" "THEN HIT "CONTINUE: A THE CONSOLE 
1948 90 50 013720 TYPE, CRLF-3 “MOVE MESSAGE UP ON T 
194 54 900000 HALT 
1944 007356 03271 010000 BIT #10000,aCDS >CHECK BIT12 
1945 00 001001 BNE +4 “BRANCH IF SET 
18 00 000 HLT OFF-LINE (BIT 12) WASN'T SET 
1948 005713 TST acDds : CHECK ERROR BIT 
1949 007370 100401 BMI +4 “BRANCH IF SET 
1339 007372 104000 HLT :ERROR (BIT 15) NOT SET 
1326 007374 032713 040000 BIT #40000, acds :CHECK FOR CARD READER ERROR 
1953 007 001001 e “BRANCH IF 
1338 007402 HLT :CARD REAER ERROR BIT 14 NOT SET 
1956 007404 032713 027573 BIT #027573.aCDS |; CHECK FOR EXTRA BITS 
1957 007410 001401 BEQ +4 “BRANCH IF OK 
1338 007412 104000 HLT :STATUS WORD ERROR 
1960 toe 012712 007464 MOV #TINTD, @ADINT ;LOAD RETURN POINTER 
1961 74 052767 000340 170350 BIS #340, PS SET PROCESSOR TO LEVEL 7 
1968 007426 016762 170344 000002 MOV PS, 2(ADINT) :LOAD RETURN PROCESSOR STATUS 
1 74 042767 000340 170334 BIC #340, PS :SET PROSSOR PRIORITY TO 0 
1964 007442 012713 100 MOV #100, acds : SET INTERUPT ENABLE 
1965 007446 000004 014166 TYPE, MSG6 :" RESTORE CARDS TO THE INPUT HOPPER’ * 
1966 007452 000004 013726 TYPE, MSG1 :"PRESS CARD READER "RESET" 
1967 007456 000004 013720 TYPE, CRLF-3 “MOVE MESSAGE UP ON TTY 
\oa8 007462 000777 3R “WAIT FOR THE INTERUPT 
1970 007464 022626 TINTD: CMP (SP)+, (SP)+ sRESTORE THE STACK 
1971 007 012712 007530 MOV ATINTDA,@ADINT = LOAD RETURN POINTER 
1972 007472 052767 000340 170276 BIS #340, PS “SET PROCESSOR TO LEVEL 7 
1973 007500 016762 170272 000002 MOV pS, 2{ADINT) :LOAD RETURN PROCESSOR STATUS 
1974 007506 042767 000340 170262 BIC #340, PS :SET PROSSOR PRIORITY TO 0 
1975 007514 012714 177701 MOV #-77. acDC  :SET UP COLUMN COUNT 
197% 007520 012715 016044 MOV WBUFBEG,@CDA §:SET UP BUS ADDRESS 
1977 007524 005213 INC acDs : START READ ING 
1978 007526 000777 BR : WAIT FOR AN INTERUPT 
1980 0075 022626 TINTDA: CMP (SP) + (SP)+ sRESTORE THE STACK 
1981 007532 022713 000300 CMP #000300.aCDS | :CHECH THE CARD READER STATUS 
1358 7536 001401 BEQ +4 :BRANCH IF OK 
7540 104000 HLT “CARD READER STATUS ERROR 
3B :OQUTPUT STACKER FULL SHOULD SET BITS 15, 14. 12, 
1986 007542 104400 TESTE: SCOPE 
1987 007544 004767 002370 JSR 47, INIT ; INITIALIZE STATUS REGISTER 
1988 007550 000004 014232 TYPE,  MSG7 :* PULL OUTPUT STACKER PRESSURE ARM 
1 *ALL THE WAY DOWN’ 
1990 007554 000004 013762 TYPE, MSG2 :""THEN HIT "CONT INE" ,ON THE CONSOLE’’ 
1991 007560 000004 013720 TYPE, CRLF-3 “MOVE MESSAGE UP ON T 
1998 007564 HALT 
1993 007566 032713 010000 BIT #10000, aCDS =CHECK OFF-LINE BIT12 
1994 007572 001001 BNE +4 “BRANCH IF SET 


om 
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1995 007574 104000 
1996 
1997 007576 005713 
Vp ss 7 100401 
1 7602 104000 
2001 7 032713 040000 
¢ 7610 001001 
Sor 7612 104000 
2005 007614 032713 027577 
pes 001401 
7622 104000 
2009 007624 012712 007670 
2010 007 052767 000340 
2011 007636 01 $706 170134 
ie 7644 op th 000340 
13. 007652 012713 100 
14 ros 013726 
15 7 013720 
so18 007666 000777 
501 8 007670 022626 
19 007672 012712 007734 
007676 052767 340 
1 7704 0167 170066 
g 007712 042767 000340 
00 012714 177701 
4 007724 012715 016044 
5 00 005213 
007732 777 
007734 022626 
7736 022715 0003500 
2030 007742 001401 
2031 007744 104 
: 5 
2036 007746 104400 
2037 007750 004767 002164 
2038 007754 000004 014115 
7760 000004 013762 
7764 000004 014354 
$ 007770 000004 01 $788 
fede 000004 0137 
5 01 nae: 010000 
01 Bone 001001 
010010 104000 
2048 010012 032713 000010 
010016 001775 
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000002 
170124 


170072 
009002 
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26-MAR-80 11:21 
ERROR FUNCTION TESTS 
HLT :OFF-LINE (BIT 12) WASN'T SET 
TST acDs :CHECK ERROR BIT 15 
BMI +4 “BRANCH IF SET 
HLT “ERROR BIT 15 NOT SET 
BIT #40000, aCDS § ;CHECK FOR CARD READER ERROR 
BNE +4 “BRANCH IF S 
HLT “CARD READER ERROR BIT 14 NOT SET 
BIT #027577,aCDS CHECK FOR EXTRA BITS 
BEQ +4 CH IF OK 
HLT “STATUS WORD ERROR 
MOV WTINTE, @ADINT ;LOAD RETURN POINTER 
BIS #340, PS “SET PROCESSOR TO LEVEL 
MOV PS, 2{ADINT) :LOAD RETURN PROCESSOR STATUS 
BIC #340, PS :SET PROSSOR PRIORITY TO 
MOV #100.  acDdS 3SET INTERUPT ENABLE 
TYPE, MSG1 : PRESS CARD READER "RESET" 
TYPE, CRLF-3 “MOVE MESSAGE UP ON T 
, “WAIT FOR THE UNTERUPT 

TINTE: CMP (SP)+, (SP)+  ;RESTORE THE STACK 
MOV #TINTEA,@ADINT LOAD RETURN POINTER 
BIS #340, PS “SET PROCESSOR TO LEVEL 7 
MOV PS, 2(ADINT) ;LOAD RET ESSOR STATUS 
BIC #340, PS SE SOR PRIOR 0 
MOV #-77. aCDC  ;SET UP COLUMN C 
MOV WBUFBEG,aCDA §_: SET UP BUS 
INC CDS “START READING 

3 “WAIT FOR AN INTERUPT 

TINTEA: CMP (SP)+, (SP)+  ;:RESTORE THE STACK 
CP #000300 acs ; CHECH THE CARD READER STATUS 
HLT ‘ : CARD READER STATUS ERROR 


:A PICK CHECK ERROR SHOULD SET BIT 15, BIT 14, AND BIT 12 
THIS ERROR OCCURS WHEN THE FEED MECHANISM FAILS TO DELIVER A CARD TO 
¢ THE = WITHIN 400 MS. 


SR. «27, INIT 

TYPE, MSGS :"REMOVE ALL CARDS FROM THE INPUT HOPPER’ ’ 

TYPE, MSG2 S"THEN HIT "CONTINUE' ON THE CONSOLE 

TYPE, MSGS :"HOLD DOWN THE SWITCH UNDER THE CAP 
Z0F THE INPUT 

TYPE, MSGI : PRESS CARD READER 'RESET**’ 

TyPe, —CRLF-3 MOVE MESSAGE UP ON TTY 

BIT #10000, aCDS CHECK FOR OFF-LINE 

BNE =. +4 : BRANCH 

HLT ‘OFF LINE NOT SET AFTER ‘‘CONTINUE*’ 

BIT #10,  aCDS ; CHECK FOR ‘TRANSITION TO ON LINE" 

BEQ w= :WAIT FOR IT 


SEQ 0037 
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2051 01 AE 140210 
$028 010024 1401 
Oar 0100 104000 
| 2055 O00 012714 177701 
dyes 012715 016044 
3 siz 
10004 105713 
01 100376 
010046 052713 010000 
1 010052 001001 
010054 1 
010056 005713 
5 010060 10040 
Soe 010062 104000 
010064 032713 040000 
010070 001001 
a 010072 104000 
3058 010074 031327 027577 
010100 001401 
soos 010102 104000 
a aba. 012712 010154 
10110 052767 000340 
78 010116 Ogres 167654 
2079 010724 op th 000340 
344 012713 100 
> Sior4s 90000 013726 
010146 900004 013720 
Sone 010152 000777 
10154 02 
101 01 $ 010220 
101 05276 340 
444 01 ths 167602 
SOOT 010176 ep th ot 
10 12714 1 1 
a 19 01 ar 016044 
Ot 16 000777 
1 ) 366 
0 r4 055 13 000300 
1 001401 
01 104000 
01 $ 104400 
01 004767 001700 
010240 014027 
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167660 
2 


00000 
167644 


167606 


000002 
167572 


26-MAR-80 11:21 
ERROR FUNCTION TESTS 


CMP #140210,aCDS 
BEQ +4 

HLT 

MOV #-77, acdc 
MOV #BUFBEG ,aCDA 
INC acos 

TSTB acDsS 

BPL a 4 

BIT #10000 ,acDS 
BNE +4 

HLT 

TST acDs 

BM! +4 

HLT 

BIT #40000, aCDS 
BNE +4 

HLT 


BIT — 4027577 
+ 


MOV ATINTF, @ADINT 


BIS #340, 
PS, 
BIC #340, 
MOV #100, aCDS 
TYPE, MSG6 
TYPE, MSGI 
TYPE, CRLF-3 
TINTF: CMP (SP)+, (SP)+ 


MOV #TINTFA,@ADINT 
PS SET PROC 
O30, 2(ADINT) stone RETURN PROC 


BIS #340, 
MOV 
BIC 
MOV #-77, BepC 
MOV WBUFBEG,aCDA 
INC acDs 
BR ‘ 

TINTFA: CMP (SP) + (SP)+ 
sre #000300, acos 


PS 
gs0N” ;LOAD RE 


Ss 
4 Fy 


;BRANCH I 
:CARD READER STATUS ERROR 


a 3 
PAGE 38 


oe FOR CORRECT STATUS BITS 
STATUS NOT EQUAL TO 140210 


SET UP COLUMN COUNT 
7SET UP BUS ADDRESS 


READ 

:CHECK CONTROLLER READY 
:WAIT FOR CONTROLLER READY 
CHECK BIT12 


SBRANCH IF SET 

OFF-LINE (BIT 12) WASN'T SET 
:CHECK SPECIAL CONDITION BIT 
BRANCH IF SET 

;SPECIAL CONDITION NOT SET 


; CHECK te CARD READER ERROR 
CARD REAER ERROR BIT 14 NOT SET 


: CHECK FOR EXTRA BITS 
:BRANCH IF OK 
:STATUS WORD ERROR 


;LOAD RETURN POINTER 

:SET PROCESSOR TO LEVEL 7 
TURN PROCESSOR STATUS 

PROSSOR PRIORITY TO 0 


MOVE MESSAGE ON 
‘WAIT FOR THE INTERUPT 


RESTORE THE STACK 
;LOAD RETURN PO 


SET PROSSOR PRIORITY TO 0 
7SET UP COLUMN COUNT 


7SET UP BUS ADDRESS 


or READING 
WAIT FOR AN INTERUPT 


RESTORE THE STACK 
HECH THE CARD READER STATUS 


a4 STACK CHECK ERROR SHOULD SET BIT 15, BIT 14, AND BIT 


12 
HIS ERROR OCCURS WHEN THE FEED MECHANISM FAILS TO DELIVER A CARD TO 


THI 
:THE READ STATION 


TESTG: 
27, INIT 
TYPE, MSG3 


:" PRESS CARD READER ‘STOP**’ 


SEQ 0038 
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26-MAR-80 11:18 ERROR FUNCTION TESTS SEQ 0039 
000004 014425 TYPE, MSG9 :* SLIDE A CARD FROM THE OUTPUT HOPPER ABOUT 
AN INCH BACK INTO THE READ HEAD 
BLOCKING THE PHOTO CELL 
000004 013726 TYPE, MSG? "PRESS CARD READER 'RESET''' 
013720 TYPE. CRLF-3 “MOVE MESSAGE UP ON TTY 
032713 010000 TLOPG: BIT #10000, @CDS  §:CHECK FOR OF LINE 
1775 BEQ TLOPG WAIT FOR OFF-LINE 
032713 000010 TLOPGA: BIT #10. aCDS §§ :CHECK FOR ‘'TRANSITION TO ON LINE’ 
00177 BEO TLOPGA “WAIT F 
022713 100210 CMP #100210,aCDS § : CHECK FOR CORRECT STATUS BITS 
1401 BEQ +6 ‘BRANCH 
1 HLT = STATUS NOT EQUAL TO 100210 
012714 177701 MOV #-77,_ acDC = SET UP COLUMN COUNT 
012715 016044 MOV WBUFBEG.3CDA §:SET UP BUS ADDRESS 
005213 INC acDs 
105713 TLOPGB: TSTB  acDS “CHECK CONTROLLER READY 
100376 BPL TLOPGB “WAIT FOR CONTROLLER READY 
032713 010000 BIT #10000, aCDS “CHECK BIT12 
001001 BNE +4 “BRANCH IF SET 
104000 HLT “OFF-LINE (BIT 12) WASN'T SET 
005713 TST acDs ; CHECK SPECIAL CONDITION BIT 
100401 BM] +4 H IF SE 
104000 HLT “SPECIAL CONDITION NOT SET 
032713 040000 BIT #40000. @CDS § ; CHECK FOR CARD READER ERROR 
001001 BNE 44 “BRANCH IF SET 
HLT “CARD REAER ERROR BIT 14 NOT SET 
032713 027577 BIT #027577.@CDS  ; CHECK FOR EXTRA BITS 
001401 BEQ +4 H IF OK 
104000 HiT STATUS WORD ERROR 
012712 010430 MOV ATINTG, @ADINT ;:LOAD RETURN POINTER 
052767 000340 167404 BIS #340, PS “SET PROCESSOR TO LEVEL 7 
01 762 167400 000002 MOV PS, 2{ADINT) :LOAD RETURN PROCESSOR STATUS 
000340 167370 BIC #340, PS :SET PROSSOR PRIORITY TO 0 
012713 100 MOV #100.  acds ;SET INTERUPT ENABLE 
014 TYPE, SG10 : REMOVE JAMMED CARDS 
013726 TYPE, MSG :" PRESS CARD READER 'RESET'’' 
013720 TYPE, CRLF-3 VE MESSAGE UP ON TTY 
777 BR / “WAIT FOR THE INTERUPT 
022626 TINTG: CMP (SP)+, (SP)+  ;RESTORE THE STACK 
012712 010474 MOV STINTGA,@ADINT :LOAD RETURN POINTER 
052767 000340 167332 BIS #340, PS “SET PROCESSOR TO LEVEL 7 
016762 167326 000002 MOV PS 2(ADINT) :LOAD RETURN PROCESSOR STATUS 
042767 000340 167316 BIC #340, PS :SET PROSSOR PRIORITY TO 0 
012714 177701 MOV #-77. acDC  :SET UP COLUMN COUNT 
012715 016044 MOV WBUFBEG.aCDA §:SET UP BUS ADDRESS 
005213 INC acDs “START READING 
000777 BR ; “WAIT FOR AN INTERUPT 
02 TINTGA: CMP (SP)+. (SP)+  =RESTORE THE STACK 
0 $558 000300 CMP #000300.aCDS | :CHECH THE CARD READER STATUS 


ee ee 
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CZ7CDAD.P11 ERROR FUNCTION TESTS SEQ 0040 
2163 010502 001401 BEG +6 sBRANCH IF OK 
164 010 104000 “CARD READER STATUS ERROR 
166 ND OF FILE BUTTON AND HOPPER CHECK TEST 
167 :0N M-1000 BIT is IS ALWAYS CLEARED 
168 “ON M-1200 IF END OF FILE BUTTON IS PRESSED WITH INPUT 
169 “HOPPER LOADED THEN WHEN INPUT HOPPER BECOMES EMPTY 
1 *HOPPER CHECK INDICATOR LIGHT COMES ON AND BITS 
172 713 14 AND 15 ARE SET 
1 
174 010506 005767 170026 TST ¢p1000 :IS READER M-1000? 
175 010512 00140 BEQ TESTI “BRANCH IF READER IS M-1200 
176 010514 000167 000322 JMP TESTH “OUT OF THIS TEST IF M-1000 
2178 0105 104400 TESTI: SCOPE 
2179 010522 004767 001412 JSR 47. INIT 
180 910526 000004 015324 TYPE, ™SG20 "PUT ANY TWO CARDS IN INPUT HOPPER'’ 
181 010532 000004 013726 TYPE, MSG1 :"PRESS CARD READER ‘RESET'’' 
182 010536 000004 013762 TYPE, MSG2 :" "THEN HIT * CONTINUE * ON THE CONSOLE"’ 
2183 010542 000004 013720 TYPE, CRLF-3 “MOVE MESSAGE UP ON T 
218% 010546 000000 HALT 
3186 010550 032713 000010 BIT #10,  @CDS | ;CHECK FOR TRANSITION TO ON LINE 
2187 010554 001775 BEQ - ;WA T FOR IT 
2188 1 556 000004 015370 TYPE, MSG21 :" PRESS END OF FILE BUTTON'' 
1 198e2 000004 013762 TYPE, MSG2 :""THEN HIT * CONTINUE * ON THE CONSOLE"’ 
190 010566 000004 013720 TYPE, CRLF-3 “MOVE MESSAGE UP ON T 
191 010572 004767 00134? JSR 47, INIT 
3138 010576 000000 HALT 
2194 
2195 010600 032713 020000 BIT #20000, aCDS =; CHECK BIT 13 
3196 010604 001401 BEQ +4 “BRANCH IF NOT SET 
$196 010606 HLT “EOF SET FROM BEGINING 
199 
2 010610 032713 040000 BIT #40000, @CDS §_; CHECK BIT 14 
1 010614 001401 BEQ +4 “BRANCH IF NOT SET 
010616 104000 HLT “READER CHECK ERROR SET FROM BEGINNING 
01 032713 000004 BIT #4, acDS ;CHECK BIT 2 
ot 4 001401 BEQ +4 “BRANCH IF NOT SET 
1 104000 HLT “HOPPER CHECK SET FROM BEGINING 
01 005713 TST acDs :CHECK ERROR BIT 
10 01 100001 BPL +4 “BRANCH IF NOT SET 
1 01 104000 HLT “ERROR SET FROM BEGINING 
13 
i 
%6 01 012712 010704 MOV #TINTI, @ADINT ;LOAD RETURN POINTER 
17 010642 052767 000340 167126 SECN: BIS #340, PS *SET PROCESSOR TO LEVEL 7 
18 010650 016762 167122 000002 MOV PS, 2(ADINT):LOAD RETURN PROCESSOR STATUS 
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11:18 ERROR FUNCTION TESTS SEQ 0041 





§ 1 7 000340 167112 BIC #340, PS SET PROCESSOR PRIORITY TO 0 
pIReee 012713 000100 MOV #100, aCDS 7SET INTERRUPT ENABLE 
1 0106 012714 177701 MOV #-77, acdc 7SET UP COLUMN COUNT 
. 4. 74 012715 016044 MOV #BUFBEG ,aCDA SET UP BUS ADDRESS 
10 Ou $13 INC acDSs START READER 
¢ 01070 ;WAIT FOR AN INTERRUPT 
6 
§ i 010704 022626 TINT]: CMP (SP)+, (SP)+  ;RESTORE THE STACK 
O1Or08 032713 020000 BIT #20000, aCDS ;CHECK BIT 13 
010712 001401 BEQ +4 ;BRANCH IF NOT SET 
1 010714 104000 HLT ;EOF SET AT END OF ONE CARD 
O10 718 032713 040000 BIT #40000, acDS ;CHECK BIT 14 
010 001401 BEQ +4 “BRANCH IF NOT SET 
2 010724 104000 HLT sREADER CHECK ERROR SET AT END OF ONE CARD 
7 0107 005713 TST acDs ;CHECK ERROR BIT 
010 100001 BPL +4 ;BRANCH IF NOT SET 
$529 010732 104000 HLT ERROR SET AT END OF ONE CARD 
41 010734 012712 010742 MOV #TINTIA,@ADINT ;LOAD RETURN POINTER 
v4 010740 000740 BR ;READ SECOND CARD 
vr 010742 022626 TINTIA: CMP (SP)+, (SP)+  ;RESTORE THE STACK 
45 010744 032713 020000 BIT #20000, aCDS ; CHECK BIT 13 
2246 010750 001001 BNE - +4 CH IF SET 
2 of 4 010752 104000 HLT “EOF NOT SET AT END OF FILE 
3 49 010754 032713 040000 BIT #40000, aCDS ; CHECK BIT 14 
50 0107 001001 BNE +4 H IF SET 
2 33 0107 HLT READER CHECK NOT SET At END OF FILE 
33 0107 032713 000004 BIT M4, acdsS ;CHECK BIT 2 
54 010 001001 BNE +4 “BRANCH IF SET 
36 010772 104000 HLT ;HOPPER CHECK NOT SET WHEN HOPPER EMPTY 
225 
$See 10774 005713 TST acDs :;CHECK ERROR BIT 
§ 5 10776 100401 BMI +4 ; H IF SET 
; 011000 104000 HLT ;ERROR BIT NOT SET AT END OF FILE 
Oty sta 014166 TYPE, MSG6 :, RESTORE CARDS TO THE INPUT HOPPER’ " 
11 013726 TYPE, MSG) 7"PRESS CARD READER ‘RESET"'' 
01101 sia 013762 TYPE, MSG2 ='"THEN HIT CONTINUE - THE CONSOLE’ 
5 011016 013720 TYPE, CRLF-3 :MOVE MESSAGE UP ON T 
011022 000000 HALT 
OT10S6 032713 000010 BIT #10, acDds CHECK TRANSITION TO ON LINE 
9 0110 001775 BEQ 74 sWAIT FOR IT 
71 
% By 0327135 020000 BIT #20000, aCdS :CHECK BIT 13 
11036 001401 BEQ +4 : BRANCH H IF NOT SET 
74 011040 104000 HLT :EOF DIDN'T CLEAR BY TRANSITION TO ON LINE 


Mrenoen 


We 


ZCDADO C 
ZCDAD .P1 
2275 
2280 011042 
1 011064 
011050 
011054 
Bis 
ais: 
011072 
011076 
011100 
2291 011104 
011106 
011110 
ae 
: 611132 
011124 
011126 
011132 
1 011134 
Sane 
305 011136 
011140 
011142 
7 011144 
011150 
011152 
10 
311 011154 
31¢ 011160 
17 011162 
15 011164 
1$ 011170 
17 011176 
18 O11 
19 O1le12 
011 18 
1 O1122 
$ 011 
it 
$B 
011240 
Ott eee 
011246 


104400 
004767 
000004 


000004 
iat 
ee 
001775 
022713 
001401 
104000 
012714 
oer 
00 a 
105713 


100376 
032715 
001001 


005713 
100401 
104 

032713 
001001 
032713 
001401 
104000 


01271 
05276 


001070 
014702 


013726 
013720 
010000 


000010 
140210 


177701 
016044 


010000 


040000 


027577 


166600 


000002 
166564 
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1 26-MAR~80 11:18 E 


“A READ CHECK ERROR 


: THIS ERROR OCC 
sREADER DISAGREES WITH THE 
TESTH: SCOPE 
JSR 247, INIT 
TYPE, MSGi2 
TYPE, MSGI 
TYPE, CRLF-3 
TLOPH: BIT #10000, acDS 
BEQ L 
TLOPHA: BIT #10, acDds 
BEQ TLOPHA 
CMP #140210,aCDS 
BEQ +4 
HLT 
MOV #-77,  aCDC 
MOV #BUFBEG,aCDA 
INC acDds 
TLOPHB: TSTB acDds 
BPL TLOPHB 
BIT #10000,aCDS 
BNE +4 
HLT 
TST acDds 
BMI +4 
HLT 
BIT #40000, aCDS 
BNE +4 
HLT 
BIT #027577 ,aCDS 
BEQ +4 
HLT 
MOV ATINTH, @ADINT 
BIS #340, 
MOV PS, 2(ADINT) ; 
BIC #340, PS - 
MOV #100, aCDS 
TYPE, MSG6 
TYPE, MSGI 
TYPE, CRLF-3 
HALT 
TINTH: CMP (SP)+, (SP)+ 
SCOPE 
JSR T. BELL 
JMP ER12CD 
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RROR FUNCTION TESTS 


:AT THE FRONT NPUT STACK*’ 
:"PRESS CARD READER ‘RESET'"' 
sMOVE SAGE 


MES 
; CHECK FOR OF 
;WAIT FOR 
ay rok "TRANSITION TO ON LINE"’ 


SHOULD SET BIT 15, BIT 14, 
URS WHEN THE READ ELECTRONICS IN THE CARD 
NORMAL UNPUNCHED AREA 


AND BIT 12 
OF THE CARD 


PLACE SPECIAL DARK LIGHT CHECK CARD ONLY 
OF THE I 


LINE 


OF FL INE 


sWAIT FOR IT 

CHECK FOR CORRECT STATUS BITS 
BRANCH IF 

;STATUS NOT EQUAL TO 140210 


SET UP COLUMN COUNT 
;SET UP BUS ADDRESS 


;READ 
: CHECK CONTROLLER READY 


;WAIT FOR 


CONTROLLER READY 


sCHECK BIT12 

; CH IF SET 

OFF-LINE (BIT 12) WASN'T SET 
:CHECK SPECIAL CONDITION BIT 

:BRANCH IF T 

:SPECIAL CONDITION NOT SET 

: CHECK FOR CARD READER ERROR 

*-BRANCH IF S 


; SET 
CARD REAER ERROR BIT 14 NOT SET 


: CHECK FOR EXTRA BITS 
:BRANCH IF OK 

:STATUS WORD ERROR 
:LOAD RETURN POINTER 


;SET PROCESSOR TO LEVEL 7 
TURN 


V 
PROCESSOR STATUS 
IORITY TO 0 


; TO THE 
;‘PRESS CARD READER ‘RESET °’ 
: ON TT 


MOVE MES 


;WAIT FOR AN INTERUPT 
RESTORE THE STACK 


:RING THE BELL 
-LOOP BACK TO THE PcGINNING 


SEQ 0042 








—- ind 
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CZCDAD.P11 26-MAR-80 11:18 OOP ON TEST ROUT INE SEQ 0043 
1 
$33 {eRe RA RARER RAE A EER TA AEST TA AAA AAA AAA AAA AAA AA ATA RAAT e AAA AR Ae ee ee ee 
23 >ROUT INE TO LOOP THRU A SINGLE INSTRUCTION TEST OR ERROR FUNCTION TEST 
=NOTE THAT SwW11 MUST BE DOWN AFTER 2ND HALT 
2335 < eee eee eee AAA AAA AAT ATTA AAA AAA AAA AT AAA RAAT TERA TARA ATTRA Ae eee 
2 011252 0064767 167264 TESTX: JSR %7,SETUP ; SETUP POINTERS AND FLAGS 
$ 7 011256 000000 HALT WAIT FOR STARTING ADDRESS 
011 016767 166304 000072 MOV SWR ,RE TRNX STORE STARTING ADDRESS 
2339 011266 062767 000002 000064 ADD #2 ,RETRNX : CHANGE TO FIRST ADDRESS AFTER SCOPE INSTRUCTION 
2 011274 oe HAL T > SET SWR OPTIONS (BIT 11 MUST = 0) 
2341 011276 032767 010000 166264 BIT #10000 , SWR *CHECK SwWi2 
2 $ 011 001404 BEQ +12 :BRANCH IF NOT SET 
2 011 042767 000020 166462 BIC #20,PS : CLEAR TRACE BIT 
g 011314 03 BR +10 =SKIP NEXT INSTRUCT ION 
5 a. 16 052767 000020 166452 BIS #20,PS -SET TRACE BIT 
2 M1586 005067 001106 CLR ITCNT = CLEAR ITERATION COUNTER 
2347 0113 012767 004000 001076 MOV #4000 , I TMAX 
2348 Oilers 012767 011350 001074 MOV #X\OOP, RETURN ;LOAD ye ADDRESS 
2549 O11 0001 000010 JMP @RE TRNX > JUMP TO T 
2350 011350 005067 001062 XLOOP: CLR ITCNT “KEEP ITERATION COUNTER AT ZERO 
2351 011354 000177 000000 JMP @RE TRNX = JUMP TO TEST 
Saeg 011360 000000 RETRNX: 0 
235 
sis 
2356 5 REAR RRAERERE EERE ER ER AERA REE AA ARERR AAEA EERE RARER RARE ARREARS 
2557 = ROUT INE TO CHECK CARDS WHICH HAVE ALL COLUMNS IDENTICALLY PUNCHED. 
2358 3; THIS “madd +: ALLOWS SPECIFIC TYPES OF DATA FAILURES TO BE STUDIED 
2359 *EASILY THE ROUTINE HALTS ONCE AT THE START. SET THE CORRECT CARD 
360 : IMAGE PATTERN IN SWi1-SWOO, THEN HIT CONTINUE (AFTER THE DECK IS 
2361 > LOADED AND CARD READER IS ON-LINE). THE PATTERN IS STORED, AND — 
2362 > EACH H COLUMN OF EACH CARD IS READ TWICE AND COMPARED WITH If. IFA 
363 = DISCREPANCY OCCURS, THE a i PRINTED OUT cere WITH THE TOTAL 
364 = NUMBER OF CARDS READ AND THE TOTAL NUMBER OF DATA ERRORS DISCOVERED 
2365 ;UP TO POINT (ALL SRINTDUTS TARE IN OCTAL). AEN THE INPUT HOPPER 
2566 1S EMPTY my ROUTINE RINGS THE BELL AND WAITS FOR MORE CARDS TO BE 
2367 LOADED AND THE CARD READER TO BE PUT BACK ON-LINE. 
368 = SW15=1 CAUSES A HALT AFTER AN ERROR, OND suse INHIBITS ERROR PRINTOUTS. 
369 Sei ecattineesutsudnereceesensanesenuntawereesecencetecsueseeteesates 
370 
2371 011362 012767 011362 001050 CKSAME: MOV ACKSAME ,RE TURN 
3/6 011370 004767 167146 JSR Z7, SETUP 5 HTT ee POINTERS 
011374 000000 HALT “WA T FOR CARD IMAGE PATTERN 
4 011376 016767 166166 000526 MOV =STORE PATTERN 
75 011404 042767 170000 000520 BIC 7150000. CARDIM “CLEAR UPPER BITS OF PATTERN 
$359 011412 016767 000514 000514 MOV CARDIN. CDPKO 
377 0114 005067 000512 CLR DERFLG 
$e55 gt 1e6n 7 000504 ROR CDPK 
2379 0114 106167 000501 ROLB DPK1 
aay 011434 1 000474 RORB CDPK 
1 011440 106167 000471 ROLB 1 
386 011444 106167 000465 CDPK1 
011450 106167 000461 ROLB CDPK1 
Stee 011454 106167 000455 B CDPK1 
385 011460 012701 7 MOV #7, R1 
2386 011464 7 000444 CKLOP1: ROR CDPKO 


——$—_— ee ——< . 
a ee 2 ae 


ee 


CERES 


240 


SINS 
NANO 


BR 


FVRVESRSES 


wn 
RS 


AXXO 


xd and and and 
ALNOS 


ne ee re ee ee ee ee ee Per ee ee ee ee Pee ee Pe ee ee 
3 3 STS 
wv 
MOAOfSnansl 


— a Tee 
SSS 


Soa RISES 


ae 
ARO 


™~ 
&* 


11 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
, 
0 
0 
0 
0 


eed eed ed eed ed ee oe od eed eed oe eed ed ed aed ed — 


wd wl eed eed eed ed ed ed eed ed eed eed 
~ 


103004 
005267 
Le ah YA 


032715 
001406 
004767 
032713 
001775 
000674 
032713 


000312 
000303 
174670 
174664 


000254 


174644 
174640 


010000 
000256 
000010 
004000 


000204 
000001 


166026 
177570 


000120 


000120 


000174 
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CKOVR: 


CKSTRT: 


CKLOOP: 


CKREAD: 


CKLP1: 


CKLOPS: 


CKLOP2: 


CKERR: 


CKERR3S: 


CKERR1: 


CKERR2: 


26-MAR-80 11:2 
IDENTICALLY PUNC 


R1 
CKLOP1 


CKLOP2 
(RO)+, CDPK1 
CKFAIL 
CLCNT 
CLCNT,#120 
CKLOP 

CKLOOP 

(RO)+, CARDIM 
CKFAIL 


47 
#10, 
CKERR3 
CKSTRT 
#4000, aCDS 
CKERR2 
DERFLG 
CKERR 

#1, DERFLG 
CKLOP3 





1 PAGE 44 
HED CARDS TEST 


:WAIT FOR SWITCH SETTINGS 


INITIALIZE CARD COUNT 
: INITIALIZE ERROR COUNT 
;CLEAR FLAG FOR PRINTING ERROR HEADING 


;CHECK FOR PACK MODE ONLY 
;BRANCH IF NOT SET 

:CHECK FOR IMAGE MODE ONLY 
;BRANCH IF SET 

;SET PACKING MODE 


INITIALIZE COLUMN COUNT 
;SET UP BUFFER POINTER 
OUNTER 


: INCREMENT CARD COUNT 
:CHECK CONTROLLER READY 
:LOOP IF NOT SET 

: CHECK FOR ERROR 
BRANCH IF ERROR SET 


; CHECK DATA 


: CHECK THE DATA 
sBRANCH IF DATA ERROR 
:COUNT THE COLUMNS 
:CHECK FOR LAST COLUMN 


;CHECK FOR OFFLINE 
: H IF NOT 


:RING THE BELL 
:CHECK TRANSITION TO ON-LINE 
:BRANCH IF OFF-LINE 

:START OVER 


:CHECK FOR DATA ERROR 


;BRANCH IF LEGIT 
REAL, LIVE ERROR. 
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45 
CZ7CDAD.P11 26-MAR-B0 11:18 IDENTICALLY PUNCHED CARDS TEST SEQ 0045 
244s 011746 000670 BR CKLOOP 
2445 011750 005267 000152 CKFAIL: INC TOTERR = COUNT ERRORS 
2446 011754 032767 020000 165606 BIT #20000, SWR *CHECK FOR INHIBITING PRINTOUT 
2447 011762 001054 BNE CKHLT “BRANCH AROUND PRINTOUT IF SET 
| 2648 011764 005767 166542 TST ERFLG “TEST FLAG TO PRINT HEADING 
2449 011770 001004 BNE CKNOHD “BRANCH IF ALREADY DONE 
24 01177¢ 005267 166534 INC ERFLG “PRINT HEADING ONCE ONLY 
2451 01177 it sw 015270 TYPE, MSG19 “QUTPUT HEADING 
245 aEse4 000004 013723 CKNOHD: TYPE, CRLF * OUTPUT CARRIAGE RETURN, LINEFEED 
2453 01 016767 174516 000544 MOV CLCNT,PRINT1 § ;TYPE CLCNT IN OCTAL 
3454 012014 004767 000574 JSR %7., PRINTR “TYPE LEADING ZERO'S 
2455 012020 000004 013715 TYPE, SPACE 
2456 012024 005767 000106 TST DERFLG 
2457 012030 100006 BPL CKNOPK 
2458 01 + aS oA 000523 MOVB -(RO), PRINT1+1 ;MOVE BYTE INTO PRINT BUFFER 
2459 01 004767 000532 JSR 47 PRINTB ; AND PRINT IT 
2460 012042 108 784 TSTB. —-_: (RO) + 
2461 012044 000405 BR CKOVR1 
sit 01 CKNOPK : 
2463 01 014067 000506 MOV -(RO).PRINT1  ; TYPE -(RO) IN OCTAL 
2464 012052 904767 000536 JSR %7..PRINTR “TYPE LEADING ZERO'S 
2465 01 005720 TST (RO) + 
2466 01 000004 013715 CKOVR1: TYPE, SPACE 
2467 01 016767 000040 000466 MOV TOTCRD.PRINT1 ;:TYPE TOTCRD IN OCTAL 
3468 012072 004767 000516 JSR %7,,PRINTR “TYPE LEADING ZERO'S 
2469 012076 000004 013715 TYPE, SPACE 
2470 012102 016767 000020 000450 MOV TOTERR,PRINT1 : TYPE TOTERR IN OCTAL 
2471 012110 004767 000500 JSR %7, ,PRINTR = TYPE LEADING "Ss 
247 012114 005767 165450 CKHLT: TST SWR > CHECK SW15 TO HALT ON ERROR 
2473 012120 100203 BPL CKLOOP “BRANCH IF NOT SET 
2474 O12122 000000 HALT ‘HALT ON ERROR 
e475 012124 000601 BR CKLOOP : CONT INUE 
2477 012126 000000 TOTERR: 0 
2478 012130 000000 TOTCRD: 0 
2479 012132 000000 CARDIM 
2480 012134 000 CDPKO: .BYTE 0 
2481 012135 000 CDPK1: .BYTE 0 
26 012136 000000 DERFLG: 0 
2484 
2485 : ISSUE MESSAGE IF CARD READER IS OFF-LINE 
2 “WAIT FOR BUSY TO CLEAR IN CASE CARD READER IS STILL READING A CARD 
2487 : INITIALIZE STATUS REGISTER AND USE ERROR HALT IF IT DOESN'T CLEAR PROPERLY 
2488 :NOTE THAT PROGRAM WILL HANG HERE IF BUSY REMAINS SET 
2489 012140 004767 000040 INIT TSR 27, CKOFFL :SEE IF OFF-LINE BIT IS SET 
3490 012144 105713 TSTB. = aCDS “WAIT FOR CONTROLLER READY, IN CASE 
2491 012146 100376 BPL _- “A CARD IS STILL BEING READ 
2492 012150 012713 000400 MOV #400.  @CDS :INITIALIZE THE CARD READER 
493 012154 022713 000200 CMP #200. a@CDS § :MAKE SURE INITIALIZATION OK 
012160 001401 BEQ +4 “BRANCH IF ALL BITS ZERO 
2495 012162 104000 HLT “NOT ALL BITS OF STATUS REGISTER ARE ZERO 
3496 012164 000207 RTS 47 “RETURN 


2498 ;BELL ON PASS COMPLETE 











A A LC OO LL A LLL LL LOL LE 


CZCDADO CD11 CARD READER DIAG 
CZ2CDAD.P11 26-MAR~80 11:18 
2499 012166 105777 166316 
2500 012172 100375 
2501 012174 012777 000207 
Seng 012202 000207 
50 
8 
2506 O1e30 032713 070000 
2507 012210 001001 
2508 Ol2212 000207 
2509 012214 000004 015247 
2510 O1SsSe 900004 015165 
2511 012224 000000 
$216 012226 000766 
251 
i 
2516 012230 0346727 165534 
sie Sissel 
2519 012242 012667 000102 
23 012246 012667 0001 
521 012252 024646 
5 ‘ 012254 000004 013725 
25 012 016767 
2524 ats 004767 322 
2525 012272 000004 0135714 
a Sa 
2528 Ossie et gre: 013714 
25 012314 011367 240 
25 012 004767 270 
531 0123524 fy ae 013725 
236 012330 005767 5234 
533 012334 100001 
534 (01 a8 000000 
535 B15 0 000002 
536 (01 ee 000000 
2537 012344 000000 
S2e5 012346 000000 
2539 012350 000000 
2540 012352 000000 
tot 
348 att re: 032767 040000 
2544 012362 00101 
2545 012364 032767 004000 
2546 012372 001013 
2547 a z23 at tA 000036 
2549 012404 005267 000026 
2550 gisei5 022606 
$22! 012412 012667 165360 
26 012416 000177 000016 
2553 012422 005067 000010 
2554 012426 011667 





MACY11 30A(1052) 


166310 


020000 


000272 


000254 


165206 
165176 
000032 


BELL: 


“READER CSR, AND 


TSTB 
BPL 
MOV 
RTS 


CKOFFL: BIT 
BNE 
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COMMON ROUTINES 


aTPs :WAIT FOR TTY READY 
#207 ,aTPB sRING BELL 
%7 :RETURN 
“SUBROUTINE TO CHECK FOR BIT 12 (OFF-LINE) BEING SET IN CARD 
PRINT OUT A MESSAGE IF IT IS 
#10000, aCDS :CHECK BIT 12 
+4 :BRANCH IF SET 
%7 s RETURN IF NOT SET 
MSG18 ;‘ BIT 12 WAS SET 
MSG17 :"REMEDY THE ERROR CONDITION 
:WAIT FOR CONTINUE 
CKOFFL : CHECK AGAIN 


PRINT 


; SCOPE 
SCOPEC 


Pe. 


s ENTERED 
;PRINT 


HAL 
BR 


AND/OR ITERATION LOOP FOR 
: B #40000, SWR 


WITH SYSTEM TRAP CALL (HLT) 
OUT THE ERROR PC AND STATUS REGISTER 


WR, #20000 ;TEST FOR INHIBIT PRINT OUT 
; ° CH TO PRINT 
B.CK : INHIBIT, CHECK FOR HALT 


SAVPC ;PC OF FAILING ROUTINE 

(6)+, SAVPS ;PS OR ERROR CONDITION 
-(6), (6) RESTORE STACK 
CRLF OUTPUT CARRIAGE RETURN, LINEFEED 
SAVFC ,PRINT1 TYPE SAVPC IN OCTAL 
hs. sc tie TYPE LEADING ZERO‘S 
SAVPS ,PRINT1 TYPE SAVPS IN OCTAL 
a il ; TYPE LEADING ZERO’S 
@CDS PRINT :TYPE @CDS IN OCTAL 
%7,.PRINTR ; TYPE LEADING ZERO’S 
SWR ;CHECK SWR FOR HALT SWITCH 
+4 ;BRANCH IF NOT SET 

HALT ON ERROR UP 

;RETURN TO MAIN LINE 


EACH TEST 2 TIMES 
;TEST SWR FOR SCOPE 


D.1 ; YES, SCOPE 

#4000, SWR z3NO- TEST FOR ITERATION 
D. ; INHIBIT ITERATION 
ITCNT , 1 TMAX 


CHECK FOR ITERATIONS COMPLETE 
: ~DONE 


ITCNT > INCREMENT COUNT 
(6)+, %6 “REPOSITION STACK POINTER 


(6)¢, PS RESTORE PROCESSOR STATUS 
@RE TURN ;RETURN TO RERUN TEST 
ITCNT ;CLEAR COUNTER 

a26, RETURN ;SAVE SCOPE RETURN POINTER 


SEQ 0046 


a 


CZCDAPO CD11 CARD READER DIAG 
C2 26-MAR-80 11:18 





CDAD.P11 


555 
56 
2557 


2558 
2559 


wi 


eS 


NMronnrnvenvry 
SFE 


WIRE 


SASS 


25 


019434 


012436 


012442 


012451 


012452 
012456 
01 


Oooo 
at ad ad od 


012560 


000002 
000001 
000000 


001064 


001402 
000000 


7 
122726 


177772 


000002 


000002 


000026 
000012 


177720 
000001 
000002 
177674 
000002 


177666 


1 TMAX: 
ITCNT 


RETURN: 


26-MAR-80_ 11:21 
OMMON ROUTINES 
RTI 
1 
0 
TEST1+2 


one > ae casera EL 


I 4 
MACY11 OATSES? PAGE 47 


; RETURN oe ie 45 
NUMBER 


MAX OF ITERATIONS 
; COUNT LOCATION FOR ITERATION LOOP 
ZADDRESS OF LAST TEST 


;ROUTINE TO TYPE ASCII MESSAGE, MESSAGE MUST TERMINATE WITH A O BYTE. 
; THE re WILL_ INSERT A 


SNULL C 


NUMBER NUL!. 
ONTAINS THE CHARACTER TO '%E USED AS 


CHARACTERS oe otra e LINE FEED. 


NOTE THE 
*NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 


S$NULL: . 
SFILLS: . 
STPFLG: . 


$TYPE: 


6$: 
1$: 


7$: 


2$: 
38: 


4$: 


5$: 


PRINT1: 


177564 

177566 

BYTE 0 

BYTE 2 

BYTE 0 
-BYTE 0O 

TSTB STPFLG 
BEQ 6$ 
HAL T 

BR 7$ 
MOV RO,-(SP) 


MOV @2(SP) ,RO 


MOVB _— (RO) +, - (SP) 
BNE 2$ 

TST (SP)+ 

MOV (SP)+,RO 
ADD #2, (SP) 

RTI 

JSR PC, 5$ 
CMPBsa#'1.2,, (SP) + 
BNE 

MOV SNULL ,- (SP) 
DECB =: 1( SP) 

BLT 3$ 

JSR PC,5$ 

BR ¢ 

TSTB = a@$ TPS 

BPL 5 

MOVB  2(SP),a$TPB 
RTS PC 


; TTY PRINTER STATUS REG. ADDRESS 

:TTY PRINTER BUFFER REG. Ti 
CONTAINS NULL CHARACTER FOR FILLS 

; CONTAINS # OF FILLER ape gt: eee 
7''TERMINAL AVAILABLE’’ FLAG (0=YES) 
RESERVED 


:1S THERE A TERMINAL? 

7BR IF YES 

sHALT HERE IF NO TERMINAL 
; LEAVE 


“GET ADDRESS OF ASCIZ STRING 

[PUSH CHARACTER TO BE TYPED ONTO STACK 
;BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 


;RESTORE 
ADJUST RETURN PC 


RETURN 

7G0 TYPE THIS CHARACTER 

:CHECK IF Le CHAR, TYPED WAS A LINE FEED 
:GO GET IF NOT LINE FEED 


NEXT CHAR, 
:GET # OF FILLER CHARS, NEEDED 
;AND THE NULL CHAR. 
:DOES A NULL NEED TO BE TYPED? 
:BR IF NO--GO POP THE NULL OFF OF STACK 
ge A NULL 
‘WAIT UNTIL PRINTER IS READY 
:LOAD CHAR TO BE TYPED INTO DATA REG. 


OCTAL DUMP OF A WORD 


0 


SEQ 0047 








—_——— ee 


J 4 
DADO + = READER ol” MACY11 30A(1052) 26-MAR-80 11:21 PAGE 48 


wae 
CZ2CDAD.P11 6-MAR-80 11:18 COMMON ROUTINES SEQ 0048 
2611 012562 000000 000000 000000 PRINT2: .WORD 0,.0,0,0 
sor6 012570 000000 
oiz 012572 000 000 PRINT3: .BYTE 0,0 
| Soi 2 012574 012767 176401 177770 PRINTB: MOV #176401,PRINT3 ;.BYTE -1,3 
16 012602 010546 MOV Z5, -(6) 
$o1% 012604 012705 012562 MOV #PRINT2,%5 “SET POINTER TO 1ST ASCII CHAR. 
18 012610 105015 CLRB (5) :CLR 1ST BYTE 
2619 012612 000422 BR PRINTT :PRINT 2 BITS 


2620 
1 012614 112767 000001 177750 PRINTR: MOVB #1,PRINT3 :SET ZERO FILL SWITCH 
$ 012622 000402 sisi +6 
01 4 005067 177742 PRINTS: CLR PRINTS 4s Spier LEADING ZERO’'S 
$0s2 01 112767 177772 177735 MOVB #-6,PRINT3+1 sSET COUNT 
5 01 010546 MOV %5,-( :SAVE R5 
sost 012640 012705 012562 MOV #PRINT2,%5 =SET POINTER TO FIRST ASCII CHAR. 
7 O1 105015 CLRB (5) :CLEAR FIRST BYTE 
01 0 PRINTF ROTATE FIR 
012650 105015 PRINTL: CLRB (5) :CLEAR BYTE OF CHARACTER 
012652 006167 177702 ROL PRINT1 sROTATE BIT INTO C 
1 012656 106115 ROLB 5) :PACK IT 
01 006167 177674 PRINTT: ROL PRINT1 sROTATE BIT INTO C 
012664 106115 ROLB (5) : T 
2634 01 006167 177666 PRINTF: ROL PRINT1 :ROTATE BIT INTO C 
2635 012672 106115 ROLB (5) :PACK IT 
2636 012674 105715 TSTB (5) 
2637 012676 001402 BEQ -+6 
2638 012700 105267 177666 INCB PRINT3 
2639 Agrue 105767 177662 TSTB PRINTS :CHECK FILL SWITCH 
2640 012710 001402 BEQ .+6 
1 012712 152725 000060 BISB #°0,(5)+ :MAKE INTO ASCII CHAR 
¢ 012716 105267 177651 INCB PRINT3+1 
012722 001352 BNE PRINTL : REPEAT 
a3 4 022705 012562 CMP #PRINT2,%5 
5 01 001002 BNE .+6 
sons OSes 112725 000060 MOVB #°0,(5)+ 
012 105015 CLRB (5) 
2648 012740 000004 012562 TYPE, PRINT2 TYPE IT 
9 012744 012605 MOV (6)+,%5 “RESTORE RS 
50 012746 000207 RTS %7 


DATA TABLES FOR DATA RELIABILITY TESTS 


ay ee A i DECK DATA TABLE 
= CARD IMAGE FORM 
COLUMN ASCII PUNCH 


CHGD1: 

ALPCD: 4000 3% & 12 
14400 5 A 12 1 
24200 33 B 12 2 
34100 74 C 12 3 
44040 25 D 12 4 
54020 36 E 12 5 
64010 sf F 12 6 
74 38 G 12 7 


i h}y eee 





ne 


SEQ 0049 


6 
PAGE 49 


K 


26-MAR-80 11:21 
DATA TABLES 


26-MAR-80 11:18 


CZCDADO CD11 CARD READER DIAG MACY11 30A(1052) 


CZCDAD.P11 


MT Or. 
Mary or. NM TNO ee 
GOO. 00.0000 00 00 CO CUM ~F WOR. 000. 00 00 00 00 00 60 ; 


— CUM AT NOR. 00. 0 0000000000 60 
cur ee eel ee ee ee el 
NNN ee eee ee ee KK COOOOSOSOSOOSOOSOSO 


MMT NOR 
— CUM) <5 WOR. 00 O 0000 00000000 


uJ 

w 

a 
Tew «VVten-: i »5MwUEsEZOAGAIMMHMe ~~ +e ON We DP BX SNH we 1A Oe A— CUM ~TW OR. COM +: 2 Be “ue 
AOR OAORKMUMATIA OR OROK AIM SADR. ONO MUM TN OR. WROK— MUM TIN ON. WROK— OMT 
ee ON Oi OU IRI MRAM MAMPI PS SP EAE AE AE SEAT SP LAIAIAIAIAUMAIAININ D000 O 


SVT SSOSS IN SERS SNR RRR Ss Neer eee et eee ees 


SSsssssssssessssssssss So 


YY IRN RGYS PENN SEISSONt RATARMI GTS S 


- Lat Lach nh Land ell Lill Lael adh Land Lindl Lill Lindt Lill Lindl bell el bell dl 
eS ee, eee ee OOOO OC OC CCC CC CCC LL LOO eS eS 


COSCDSOOCOOCOOCOCOOSCOOOOOOSSOOSOSSOSOSSSOSSSSOSOSOOSOSSSOSOOSOoo ooo ooeooeoees& 


Bae R REST SR SR UAE GEESE RE REESE BER ERE RRR RRA RARARARASAN 


SoU GEOR RI es SE TES 25S BERS UNSOR TESTES 
SSNAIAR SeNA ISON SEAMS ASS ah 33 se oe 





DRINININI NINN NINN NINN 





_s_—( LL LLl_ll_—FEeRee eee —— 


Lt 4&4 
= 11:21 PAGE 50 
DADO 11 CARD READER DIAG MACY11 30A(1052) 26-MAR 80 
CEE DAD PII 26-MAR-80 11:18 DATA TABLES 





SEQ 0050 
2723 013150 000 4000 265 : 12 
fe tae Hos ie at 

013156 0341 34100 ; 167 
afer HGS g440ee £4040 i bo ORS 
2728 013162 054020 020 26 12 5 
; i} 126 Oe 004 74 72 : 12 7 
3731 913190 004002 4002 3 ; 12 8 
$ Oso $52 24202 75 " 12 8 2 

Oraire Berens 34102 76 4 12 82 
; 5 61 SE Sade: 44042 :77 < 12 8 4 
$539 3 3506 O77045 ASE ae: ‘ 12 8 6 
e738 013206 074006 ALPEND: 74006 :80 

- ALPHANUME TABLE 

740 AL RIC DECK DATA laa 

2741 ;THE VALUE IS THE ENCODED FORM “alti Kea rnc 
oo gee ae PR iy 

745 013212 202 "BYTE 202 : 12 2 

rs Blasi 388 are 80 | 8 

sig Sis 38 Hae a.) 

2749 013216 206 -BYTE 206 if F 12 6 

2750 013217 207 “BY 207 :8 6 12 7 

751 013220 210 "BYTE 12 8 

oe fies, ei et ORR, 
$e 03595 $1 “BYTE $13 712 : 1283 
soee O1395 Sia “BYTE 214 13 < 1284 
sree 13998 ar “BYTE 215 714 ( 1285 
$h3S ota 2 ste “BYTE 216 15 + 1286 
eM f 7 $19 “BYTE 217 :16 le 87 
r28 OOt 101 BvIE 191 18 J 111 

sree Ot 3533 102 “BYTE 102 :19 K 1 : 

85 O13 104 Oye 108 a i 

Te; 1 30 198 “BYTE 105 22 N 115 

ree it 3 107 BYTE 199 ig P 117 

767 013240 110 "BYTE 110 29 : 118 

768 013241 120 “BYTE te :26 R if # 
769 01324 112 ‘BYTE 1 11 8 2 
Hi 1 ‘3 He ByTE its 58 ; 1184 
oy Oi a5as 118 "BYTE 115 :30 ) 1185 
78 13542 We -BYTE 116 :31 : 11 86 

: “5 9 “BYTE 117 :32 A 1187 
oe 01308 "BYTE 40 33 0 0 
OT We "BYTE 41 = 34 / 01 
3rre oi 3) we “BYTE 42 :39 $ O¢ 
2778 O1 3504 043 "BYTE 43 : 





<<< as 








Mm 4 
CZCDADO 11 CARD a DIAG MACY11 30A(1052) 26-MAR-80 11:21 PAGE 51 
CZCDAD. 6-MAR 11:18 DATA TABLES SEQ 0051 
779 044 -BYTE 44 337 U 04 
780 045 .BYTE 45 V 05 
1 046 -BYTE 46 339 W 06 
047 -BYTE 47 :40 x 0 7 
050 BYTE 50 741 Vv 08 
060 -BYTE 60 34 Z 09 
5 O26 BYTE 52 34 \ 082 
05 .BYTE 53 244 08 3 
é 7 054 “BYTE 54 45 4 084 
055 .BYTE 55 346 085 
2 056 -BYTE 56 247 5 086 
§ 057 -BYTE 57 748 ? 08/7 
791 000 -—BYTE 0O 249 SPACE BLANK 
Re 001 -BYTE 1 :50 1 1 
002 -BYTE 2 351 2 2 
794 003 BYTE 3 352 3 3 
795 004 -BYTE 4 753 4 4 
a 005 BYTE 5 354 5 5 
79 -BYTE 6 255 6 6 
798 007 BYTE 7 356 7 7 
799 010 BYTE 10 3:57 8 8 
& 020 -BYTE 20 758 9 9 
: 012 BYTE 12 759 : 8 2 
: 013 -—BYTE 13 360 ot 8 3 
: 014 -BYTE 14 361 a 8 4 
015 -BYTE 15 762 , 8 5 
BC 016 -BYTE 16 263 = 8 6 
306 017 BYTE 17 364 - 8 7 
BC 200 -BYTE 200 265 & 12 
2808 201 -BYTE 201 366 A 12 1 
B0S 202 -BYTE sre 267 5 12 2 
203 BYTE 20 368 C 12 3 
204 -BYTE 204 369 D 12 4 
205 -BYTE 205 :70 E 12 5 
-BYTE 206 371 F 12 6 
7 «BYTE 207 :72 G 12 7 
210 BYTE 210 373 M 12 8 
220 -BYTE 220 374 I 12 9 
212 -BYTE 212 375 C 12 8 2 
213 -BYTE 7 :76 ‘ 12 8 3 
214 -BYTE 14 3:77 < 12 84 
215 BYTE 215 :78 ( 1285 
216 -BYTE 216 379 + 12 8 6 
217 ALPENP: .BYTE 217 380 é 1287 
:BINARY DECK DATA TABLE 
: COLUMN PUNCH 
BINCD: ' -1 BLANK 





eeeceeees 
nee 
sss 
So 


ed eed ee ced 
Ww 
Lo | 

ad 

Sk 
Nw 
oo 

—_> 
33s 


SEQ 0052 


4 
PAGE 52 


26-MAR-80 11:21 
DATA TABLES 


26-MAR-80 11:18 


CZCDADO CD11 CARD READER DIAG MACY11 30A(1052) 


CZ2CDAD.P11 


———————————_ 


ue hc MM TNOR. OOO VMTN KR OKAO—UMTOOR. DHAO-—MUMTNOR. DAOK— VMTN 


Ceteteteteateteatea*ea*e*e*e*a "a *s wererrerarerer ey. ar er or ee es er OO e®*e *e*e *e *e *8 


eM srw NM Tnor. TOON RA mR &K— MUMMORO-— TUM TOR. ee WrOr™ 
SSSq NEI RSR ONE TO oR SARANANMMOM MMM SS Be NSN AUGER R SORES OORER 
= Sl lSeS 
lh ap rl te ea ee ek el el lel el el le a 


-—uMmeaTw Ow sTwwor. MmwTrwnor www WMO, wre ™m wore ~ 
SSSe-Ne a Neate he attra ERR TR Base 

- on Ww 
= RRL QORRARR ORK Neg Se WYNN RR SRORARR CL LLLY SS 
eo a poe Gee go 


IS SONY CBN BONY ORNE RINGO YS PRAELGYT BPE LEAS LONS PANELS 
A, —PIIIIIIS | SY KRROOOS——— Ay 


SooSoo eS HK MK KKK CCC CCK SC CCC CCC SC CeCe Ce CS ee ee ec ee eS 


OoQoooooooooeoo 


ne SRC - sc = - sc 
RIDRES SII S TAKA LEST VI FA Bs BO 





oO 





MOOI ICI OIE OI RI ICU RIC CUCU CU CUCU RICUCUCURE MII AIRC CCU OUCUO 


8 eS - -- - 












B 5 
D11 CARD a bey MACY11 30A(1052) 26-MAR-80 11:21 PAGE 53 
DAD .P11 26~-MAR- 11:1 DATA TABLES SEQ 0055 
1 ; 1773 366 
1 177674 177474 :67 
1 177575 177575 3:68 
1 177676 177676 769 
1 30101 30101 :70 
1 4 771 
1 1 130303 372 
1 1 170404 373 
1 32 1 170505 374 
13554 17 :75 
135 17 170707 376 
1 195419 163210 :77 
1 1 Ois 170123 378 
1 Hay 5: 177654 :79 
013566 174567 BINEND: 174567 780 


BINARY DECK DATA TABLE 
:THE VALUE IS THE ENCODED VALUE, WHICH ORS THE OCTAL REPRESENTATION OF 
ROWS ONE THRU SEVEN 





710 : COLUMN ASCII PUNCH 
yi) OT 900 BINCDP: .BYTE 9 it SPACE BLANK 
. 4 1 010 -BYTE 10 33 8 8 
2914 01 007 BYTE 7 74 7 7 
915 01 00¢ -BYTE 6 35 6 6 
716 O1 005 BYTE 5 76 5 5 
917 O01 004 -BYTE 4 oy 4 4 
318 1 003 BYTE 3 78 3 3 
, 1 002 -BYTE 2 39 2 2 
920 01 001 -—BYTE 1 210 1 1 
921 O1 040 -BYTE 40 311 0 0 
: 4 1 100 -BYTE 100 312 ~ 11 
% 1 200 -BYTE 200 3713 g 12 
; 1 067 -BYTE 67 714 
925 O1 117 BYTE 117 315 
926 «(01 177 -BYTE 177 16 
) 1 207 -BYTE 207 217 
929 01 17 BYTE 17 2:19 
950 Q1 377 -BYTE 377 7:20 
931 O1 046 -BYTE 46 i21 
; 1 056 -BYTE 56 s6 
933 (01 077 -BYTE 77 2 
: 1 047 BYTE 47 324 
935 O1 067 -BYTE 67 325 
936 «(01 057 BYTE 57 326 
1 077 BYTE 77 :27 
iB OT 105 -BYTE 105 3728 
» QT 19¢ -BYTE 127 3:29 
D O1 137 -BYTE 137 730 
m1 OT 107 -—BYTE 107 731 
: 1 127 -BYTE 127 :32 
1 117 BYTE 117 7535 
1 137 -BYTE 137 334 
5 Q1 147 -BYTE 147 335 
1 167 BYTE 167 3:36 


RE OPE Seek ee -- ——— - - - 


ee — 








_ 
DADO CD11 CARD ~ ee DIAG MACY11 30A(1052) 26-MAR-80 11:21 PAGE 54 
11 26-MAR-80 11:18 





zc 
ZCDAD .P DATA TABLES SEQ 0054 
7 157 .BYTE 157 :37 
. 147 BYTE 147 738 
2% 167 -BYTE 167 339 
157 .BYTE 157 3:40 
1 177 -BYTE 177 341 
$ -BYTE 204 742 
27 -BYTE 227 +45 
16 -BYTE 216 244 
5 37 -—BYTE 237 245 
si -BYTE 227 246 
17 BYTE 217 247 
37 BYTE 237 3:48 
46 BYTE 246 749 
267 -BYTE 267 350 
256 BYTE 256 751 
277 BYTE 277 752 
247 BYTE 247 353 
257 BYTE 257 254 
77 BYTE 277 755 
5 -BYTE 305 356 
27 -BYTE 327 :57 
317 -—BYTE 317 258 
337 -BYTE 337 :59 
307 -BYTE 307 360 
327 -BYTE 327 761 
337 BYTE 337 7:62 
ot -BYTE 347 763 
7 -BYTE 36 764 
357 -BYTE 357 365 
‘5 -BYTE 377 3:66 
-BYTE 347 :67 
-BYTE 367 768 
357 -BYTE 357 369 
023 -BYTE 23 370 
01 BYTE 12 :71 
03 BYTE 33 372 
007 BYTE 7 373 
027 BYTE 27 374 
017 BYTE 17 375 
037 BYTE 37 :76 
146 -BYTE 146 77 
37 -BYTE 37 :78 
7 -BYTE 347 379 
237 BINENP: .BYTE 237 780 
020040 020040 040 ASCII / / 
040 000040 SPACE: .ASCIZ / / 
00501 01 ASCII <12><12><12> 
015 00001 CRLF : -ASCIZ <15><12> 
5015 051120 051505 MSG1: .ASCIZ <15><12>/PRESS CARD READER ‘RESET‘*/ 
123 0503 042122 
1040 0505 042504 
1 ‘ 51047 051505 
0521 000047 
005015 044124 047105 MSG2: -ASCIZ <15><12>/THEN HIT ‘CONTINUE’ ON THE CONSOLE / 








-—o 


D11 CARD 


R DI 


AR-B0 


DAD.P11 26-MAR-80 11:1 
3 013770 111 
$004 o18776 047 $2 11 
014004 042525 0 
1401 05 04 19 
1 117 04752 
14 900 
140 01 05001 
10 01 051 33 04144 
11 01 020104 042522 
12 01 051105 023440 
13 014 050117 000047 
4 01 903015 044124 
§ 0140 7111 042524 
16 014076 050125 020124 
17 014104 042526 020114 
18 O14112 0201 
19 01411 015 051012 
014122 053117 020105 
1 014130 020114 040503 
g 0141 020125 051106 
014144 052040 042510 
4 014152 050116 052125 
§ 014160 050117 042520 
014166 005015 042522 
014174 051117 020105 
8B 014 : 042122 020123 
014210 052040 042510 
014216 050116 052125 
1 014224 050117 0425 
014 5015 052520 
014 7440 052125 
014246 020124 052123 
§ 014254 042513 0 122 
O14 051505 0525 
14 04440 046522 
014276 053517 020116 
014 ; 7125 044524 
14 1 7510 050120 
3041 14316 041440 042510 
¢ Bites Oooies OT 
4 014 005015 047510 
5 014 042040 053517 
O14 044124 020105 
14 052111 044103 
14 042116 051105 
9 014 042510 041440 
14400 047440 020106 
1 014406 020105 0471117 
014414 020124 
014416 047510 050120 
0144 000 
§ 014425 gl 051412 
Qi44 042 040440 
14440 051101 020104 
014446 046517 052040 


MACY11 30A(1052) 


042101 
052123 


204 
goyig) 
052520 
051105 


MSG3: 


MSG4: 


MSG5: 


MSG6: 


MSG7: 


MSG8: 


MSG9: 


2: 3 
26-MAR-80 11:21 PAGE 55 
DATA TABLES 


-ASCIZ 


ASCIZ 


eASCIZ 


eASCIZ 


ASCII 


eASCIZ 


-ASCIZ 
ASCII 


<15><12>/PRESS CARD READER 'STOP'/ 


<15><12>/THE INTERRUPT LEVEL WAS / 


<15><12>/REMOVE ALL CARDS FROM THE INPUT HOPPER/ 


<15><12>/RESTORE CARDS TO THE INPUT HOPPER/ 


<15><12>/PULL OUTPUT STACKER PRESSURE ARM DOWN / 


/UNTIL HOPPER CHECK LIGHTS/ 


<15><12>/HOLD DOWN THE SWITCH UNDER THE CAP OF THE INPUT / 


/HOPPER/ 
<15><12>/SLIDE A CARD FROM THE OUTPUT HOPPER ABOUT HALF AN INCH / 


ne ae oe — +e 


SEQ 0055 





—— 
a 
- ee a mee 


.. 2 
e: ~ :21 PAGE 56 
ADO CD11 CARD a y DIAG MACY11 30A(1052) > 2 11:2 
EF EDAD-PT 26-MAR 11: 


SEQ 0056 
18 DATA TABL 
052520 
Bese please ures O55195 O57 
$e} 914276 051105 040460 947302 
: 14508 o26)06 Foner ) READ HEAD, BLOCKING THE PHOTO CELL/ 
30% 14819 061316 350040 04050 ASCIZ <15><12>/ BACK INTO THE , 
RoE eer cr 
4 
wey slits Sele sigs ele 
sg Gisaes tate See ear 
a g14370 aisle ray 000 REMOVE JAMMED CARD/ 
SOrS Glesr¢ OKeSTE BOE BID accra. asciz <1Soct20 
oe by 105 040512 
75 014610 053117 eat e 041240 aaa ae 
5077 O14694 03104 000194 042114 MSG11: .ASCIZ <15><12>/HOLD THE OUTPUT STACKE 
A. 014680 ett 510 047440 
0 b1464 98 1 4 885250 020124 
4 4652 052123 041501 042513 
12666 020122 040507 04252 e732 0) 
ap 085640 049510 000116 CIAL DARK=LIGHT CHECK CARD ONLY (¢ ok 
tone o14e7% eat: 08720 STs MSG12: .ASCII <15><12>/PLACE SPE 
5 014702 00501 153 041805 
ted o1ar16 $f05%3 $3014 05 
3088 trea 04552 on 764, Tae 
014 05211 byes 081701 
0147 045503 041 34514 
| greres Semis BECLL Seite 
5 pee: 2706 §35062 ee 
apa M3 12e 042510 053440 ASCII /THE WRITE 
014 65 
3097 015008 034590 ewes ASCIZ <15><12> = /AT THE BOTTOM OF THE INPUT STACK 
015010 5015 ooele? 035117 . 
a Samle Goree Gees Beit 
19 139 s0ri¢ $2128 01500 PATTERN READ/ 
198 o1 3046 whose o¢5355 041505 MSG13: .ASCIZ <15><12>/DECK CARD = COLUMN 
SE OC a ate 
3108 015066 051101 020104 
ie States Surtees 
1 0151 0201 0 
109 918110 042524 047122 05104 | 
i) Otste Bos01s O4e101 044120 MSGI4: .ASCIZ 
Oe EG dine tenis mcr cinemas 
3114 015140 051101 000131 





—" 
ww OD 
33 


Ww 


el ce et ce ee eed eed wd ed ed ed —_ 


moron 
SORES TSVSRSNRURUNLSVRSVSARAALSSaNeon & 


Manns & & 
Rein SSe 


WANWANANANA Wn 
WY HM AAA AA AAA AAA AAAS w 


VSSASS ROSAS IVY 


WWw 








, = 
¥11 30A(1052) 26-MAR-80 11:21 PAGE 5 
" RRO MAR-BO 1121 i DATA TABLES 


005015 044502 020124 MSG16: .ASCIZ <15><12>/BIT 15 WAS SET/ 


SEQ 0057 


NASKE 


051012 046505 MSG17: .ASCIZ <15><12>/REMEDY THE ERROR CONDITION AND PRESS "CONT INUE * / 


1 
1 ose 

020123 041447 
; “a 052516 


015 041012 O7el th) MSG18: .ASCIZ <15><12>/BIT 12 WAS SET/ 


FLEKSVE 
g 


5015 047503 092514 MSG19: .ASCIZ <15><12>/COLUMN READ CARDS ERRORS/ 
15 


04 
ot eee 051122 
052520 020124 MSG20: .ASCIZ <15><12>/PUT ANY TWO CARDS IN INPUT HOPPER/ 


ee RGrOROnORORGROROROAIAD ee ae 
ab 
¥¥ ROWRO 
28S 
~~ awd 
— 
a —! 
~aetunnale 
S 3 
a 
w 
— 
o 
Ww 
ht 
Ww 
™NM 
& 


Sasy 
2° 
wv 
oo 
co 
wd ed 

WUNo 
RS 

Nm 

oe 
Ou 
Nm 
Mm 


051120 031305 MSG21: .ASCIZ <15><12>/PRESS END OF FILE BUTTON/ 
0201 
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052502 052124 


053412 Otee19 MSG22: .ASCIZ <15><12>/WHEN PRINTING STOPS PUT HALT AND/ 


ea 


REET 

RSENS 
R 
a 


ViVwiw 
a 
aE 
oO 
Ww 
Nm 

—— 
Nm 
wi 
= 
oO 
_ 
oS 
— 


MSG23: .ASCIZ <15><12>/SINGLE BUS CYCLE DOWN, AND HIT ‘CONTINUE* ON THE/ 
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047117 MSG24: .ASCIZ <15><12>/CONSOLE UNTIL ONE CARD IS READ/ 
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047105 MSG25: .ASCIZ <15><12>/THEN PUT UP THE TWO SWITCHES AND HIT/ 
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D171 CARD READER DIAG MACY11 30A‘(1052) 26-MAR-80 11:21 PAGE 58 
P11 26-MAR-80 11:18 DATA TABLES SEQ 0058 
012668 99 111 044103 051505 
156 0 042116 044040 
015656 052111 000 
axed 912 reste 047503 MSG26: .ASCIZ <15><12>/"CONTINUE* ON THE CONSOLE/ 
12686 05 1g 111 042525 
015674 b¢ 047117 052040 
01570 10 041440 047117 
B132 047523 042514 000 
1571 015 041412 041532 MSG27: .ASCIZ <15><12>/CZCDADO CD11 CARD READER DIAG/ 
0157 0504 030104 041440 
015 0 1 0405 
B13 122 051040 040505 
15744 04 020122 0445 
015752 043501 000 
015756 EVEN 
015756 012767 016006 162040 POWR: MOV #RESTOR,24 
015764 010046 MOV %0,-(6) 
015766 010146 MOV %1,-(6) 
015770 010246 MOV %2,-(6) 
015772 010346 MOV %3,-(6) 
015774 01 MOV %4,-(6) 
015776 010546 MOV %5,.7-(6) 
016000 000036 MOV %6, SAV6 
016004 HALT 
016006 012767 015756 162010 RESTOR: MOV #POWR , 24 
016014 016706 000022 MOV SAV6, £6 
016020 012605 MOV (6)+,%5 
O1eRss 12604 MOV (6)+,%4 
016024 012603 MOV (6)+,2%3 
a3 012602 MOV (6)+,%2 
160 012601 MOV (6)+,2%1 
16032 012 MOV (6)+,%0 
16034 016716 174400 MOV RETURN, (6) :START TEST OVER 
016040 RTI 
016042 000000 SAV6 0 
016044 000000 BUFBEG: 0 
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CZCDADO CD11 CARD READER DIAG 





CZCDAD.P11  26=MAR~80 11:1 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0059 
LDON 006334 1710 17134 
ALPCD 012750 1360 2659" 
ALPCDP 013210 27434 
ALPEND 01 1361 27384 
ALPENP 013327 2822" 
ALP1 004336 1355 1360# 
BEGIN 001000 701 7614 
LL 012166 1336 1715. = 2327, 2431 2499 
BINCD 013330 1356 2826" 
BINCOP 013570 29114 
BINEND 013566 1357 2905" 
BINENP 013707 2990« 
GND 004524 1389% 1390 1395 
BKGND1 0045 13928 1393 
BUFBEG 016044 357 BOT s(‘i‘i22tti(‘i‘iDs(‘ié‘é‘SSC«dSSiéd0SS=Ss«s10095)Sss232-s«s1972)—Ss«1212,— «1248-1270 
1377: 1663.—S«—«*1796~=s«d1976 = 2024«=— 2056. = 2092, 2121. 2157 = 2222S 2295 2405 32 12m 
BUFEND 006514 1411* 1412" 1413" 1414 1528% 1529* 1530 1764M 
B-CK 012530 2518  2532# 
CARDIM 012132 5374% 2375s 2376 2422 24798 
CDBA 000506 7264 746 
CDcc_ 000504 7258 = 745 
CDCNT 006526 1352" 1441 1464* 1666" 1555 1560 1563* 1585" 1673 1685* 1686  1688* 1699 
1708* 1709 1769 
CDPKO 012134 2376*  2378*  2380* 2386" 24804 
CDPK1 012135 5379x 3381x 2382* 2383" 2384* 2389* 2416 24814 
CDREAD 004522 384 1386 1388f 
CDST 000502 726 = 744 | 
€D1000 000540 740# 1776% 1778* 2174 
CHGD1 012750 26584 
CKERR 011676 2413 24294 
CKERR1 011720 2430 24364 
CKERR2 011744 3437 2439 «=. 24h 2H 
CKERRS 011710 24324 2433 
CKFAIL 011750 2417 2423. hit 
CKHLT 012114 2447 2472 
CKLOOP 011530 5397H 3421 2427 2443. 24732475 
CKLOP1 011464 23 2391 
CKLOPS 011652 2415 2422# 2626 
CKLOPS 011626 2416# 2420 2441 
CKLP1. 011610 2410# 2411 
C 012002 2449 2452 
C 012046 2457 2460 
CKOFFL 012204 776 «= «855. Ss BBB 2489 = 2506 = 2512 
CKOVR 011502 2387 2390 
CKOVR1 012060 2461 24664 
CKREAD 011564 2399 2401. 2404A 
CKRF 534 7384 
CK 011362 711 «23714 
CKSTRT 011510 23934 2434 
CLCNT 006530 53512 1426* 1427 1541" 1542 1690* 1691 1693" 1707" 1770H 2404" 2418* 2419 
2424% 2425 2453 
CONTC 007116 1870 18754 
CONTD 004560 1359 =: 1363 
CONT 3734 1255 12590 
CONT21 004046 1278 =: 12814 
CONT? §— 001646 929 938% 
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CZCDAD.P 26-MAR-80 CROSS REFERENCE TABLE ~- USER SYMBOLS SEQ 0060 
COUNT 000522 7328 860* 870* 896* 901* 1250* 1251* 1418* 1424* 1533* 1539 1614* 
COUNTG 0005 73 
CRLF 013723 1788 1794 1822 1838 1867 1916 1942 1967 1991 2015 2043 2083 2111 
2148 2183 2190 2265 2285 2322 2452 2522 2531 29954 
DATRST 006502 13! 1676 17594 
DATST 266 1335 13514 1757 1760 
DCNT1 14 1366 13704 
K 006166 1358* 1362* 16834 
DECKCK 006456 1726 1729 17534 
DERCNT 534 1391* 1394* 17724 
DERFLG 012136 2377* 2388* 2397* 2403* 2414 2438 2440 2456 24824 
6 1526 907 9104 
= 860000 667 1683 
D.1 012410 2544 25504 
D.2 012422 2546 2548 25534 
ENDCK 004240 13334 
ERCD11 006546 17784 
RFLG 000532 7374 #=©1353* 1678 1680* 2396* 2448 2450* 
ER12CD 006554 1777 779% 2528 
1200 006536 717 17764 
T = 104000 # 784 788 797 804 810 817 821 826 8 837 841 
846 850 864 868 875 878 882 895 903 8 912 928 932 
936 954 987 991 1005 1027 1031 1045 1067 1071 1085 1107 1111 
1122 1144 1148 1162 1184 1188 1202 1220 1224 1238 1256 1280 1301 
1305 13 1313 1317 1321 1325 1329 1400 1409 1416 14 1491 1496 
1501 1505 1509 1513 1517 1520 1527 1532 1603 1610 1613 1619 1625 
1630 1 1638 1642 1645 1732 7 1740 1748 1801 805 1809 1813 
1826 1830 1834 1843 1847 1851 1855 1872 1877 1881 1885 1897 1901 
1905 1909 1922 1926 1930 1934 1946 1950 1954 1958 1983 1995 1999 
2003 2007 2031 2047 2053 2062 2070 2074 2118 2127 2131 
2135 2139 2164 2197 2202 2207 2211 2231 2235 2239 2247 2251 2255 
2660 oon, 2292 2301 2305 2309 2313 2442 2495 
INIT 012140 91 944 968 1008 1048 1088 1125 1165 1205 1242 12 1287 1370 
1787 1819 1860 1939 1987 2037 2105 2179 2191 2281 2393 24894 
INTFLG 000524 7334 750* 83 985 996 998* 1003 1023 ¢ 1036 1038* 1043 1063 
1065 1076 1078* 1083 1103 1105 1116 1118* 1120 1140 1142 1153 1155* 
1160 -1180 1182 1193 1195* 1200 1229 1231* 12 
INTVC 000516 7304 747 748 749* 
ISR 004572 1402 14054 
1 SRBE 714 1425 14334 
I SRDE 742 1420 14414 
ISRDE4S aly, 1468 14764 
ISRD1 004750 14434 1464 
ISRD2 00 1442 14674 
ISRER 0051 1406 14 
ISRE1 5144 1483 14874 
1Sne¢ 5176 1488 14 
ISRE 5206 1492 15034 
ISRLP 4 14194 1428 1431 
ISRNC 004636 14184 1495 
I SRNX of 4 14344 
ISRNX1 1436 14 
ISRRT 50 14214 1455 1457 1479 
ISRST 005256 1485 1497 at 
ITCNT 012436 2346 2350% 2547 2549% 2553* 255/74 
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CZCDADO CD 
CZCDAD.P11 26-MAR~80 11:18 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0061 
ITMAX 012434 743* 1781* 2347" 2547 25564 
LASTCD 52 1494 1622 1660 16984 
LOOPS } 001550 8664 871 
LOOP6 0012s) 9064 
LOOP6A 001474 8994 9N2 
LOOP6B 001512 900 905 
LSTCD1 66 17004 1702 
MSG1 013726 1836 1915 1966 2014 2042 2082 2110 2147 2181 2263 2284 2321 29978 
MSG1O 014603 2146 30744 
MSG11 014630 30784 
+9314 oe rNs 2282 30854 
MSG1 01505 1681 31044 
MSG14 O12 166 1362 31114 
MSG15 0151 1358 31134 
MSG16 015144 31154 
MSG17 015165 2510 31184 
MSG18 312530, 2509 31278 
MSG19 015270 2451 31304 
MS 013762 1821 1837 1941 1990 2039 2182 2189 2264 30024 
Bie $° 2180 31354 
1 15370 2188 31414 
4 015423 1789 31464 
MS 015466 1790 31524 
MSG24 015551 1791 31614 
MSG25 015612 1792 31674 
015661 1793 31744 
MSG27 015715 763 31794 
MS 014027 1820 1866 106 30094 
014062 999 1039 079 1156 1196 1232 30144 
MSGS 014115 1940 2038 30194 
MSG6 014166 1965 2081 262 2320 30264 
MSG7 OT ear 1988 30324 
G8 014 2040 30444 
MSG9 014425 2107 30554 
006164 1679 16824 
= 40 6634 
OTRP 1026 7674 770 
OTRP1 Boe 13654 1368 
CRD 12 1429 1433 1544 1548 17074 
OF F SET 512 1379* 1652 1654* 1658* 17634 
ONINT 4 1742 17464 
ONLINE 006400 1724 17284 
AKSET sy 1387 1437 16704 
015756 689 31884 3199 
RINT 01 $37 692 25164 
RINTB 012574 1591 1594 2459 26154 
PRINTF 01 2628 26344 
RINTL AE 2629K 2643 
RINTR 012614 1471 1474 687 1692 2454 2464 2468 2471 2524 2527 2530 26214 
PRINTS 012624 1001 1041 1081 1158 1198 1234 26254 
INTT 01 2619 26324 
RINT? 012560 1000* 1040* 1080* 1157" 1197* 1233* 1470* 1473* 1590* 1593* 1686* 1691* 24535* 
2458% 2463* 2467* 2470 2523*% 2526* 2529% 2610#  2630* 2632" 2634 
PRINTS O12 26114 2617 2626 2644 2648 
RINTS 01257 261 2615* 2621*  2623*  2624* 2638* 2659 2642* 
000530 7354 858* 872 897* 905 
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CZCDAD. 26-MAR-80 11:18 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0062 
PS = 177776 6624 752* 767* 771* 858 859* 87-* 897 898* 905* 918* 919 920* 
926* 946* 947 970* 971 972* 975% 979 1010" 1011 10le® 1013* 1019* 
1050* 1051 1052* 1053* 1059* 1090* 1091 1092 1093* 1099* 1127* 1128 1129* 
1130* 1136* 1167* 1 1169* 1170* 1176* 1207* 1208 oop 1210* 1216* 1244* 
1¢o2 1246* 1253* 1266* 1267 1268* 1275* 1277* 1289* 1290 1291*  1365*  1369* 
1374* 1375 1862* 1863 1864* 1888* 1889 1890* 1912* 1913 1914* 1961* 1 
1963* 1972* 1973 1974* 2010* 201 2012* 2020* 2021 2022* 2077* 2078 2079* 
* 2089 2090* 2142* 2143 2144% _.53* 2154 2155* 2217* 2218 2219* 2316" 
2317 2318* 23435* 2345* 2551* 
PSR 005262 1403 15234 
PSRBE 005576 1540 15484 
PSRDE poaeee 1535 15604 
PSRDES 1587 15964 
PSRD1 005456 15624 1583 
PSRD2 005570 1561 15864 
PSRER 005650 1524 16024 
PSRE1 005656 1602 16064 
PSRE 005714 1607 16154 
PSRE 005754 1616 16284 
PSRES 005764 1o07 16324 
PSRLP 5326 15 1543 1546 1646 
PSRNC 5320 15334 1624 
PSRNX 005402 15494 
PSRNX1 005444 1551 15574 
PSRRT 005332 15364 1574 1576 1599 
PSRST ¢3 1604 16464 
PTOFF spt 2 17714 
REST 16006 3188 31994 
RESTRT 001020 7654 1756 
RETRNX 011360 2338* 2359* 2349 2351 23524 
RETURN 012440 761* 774* 1780* 2348% 2371* 2552 2554* 25584 3207 
SAVPC § 012350 2519* 2523 2539# 
VPS 012352 2520* 2526 25404 
me 012342 2 
SAVR 012344 25374 
SAVR4 012346 
016042 3195* 3200 32104 
SCOPE = 104400 6654 775 790 812 832 852 884 914 941 967 1007 1047 1087 
1124 1164 1204 1240 1262 1285 1333 1786 1818 1859 1938 1986 2036 
2104 2178 2280 2326 
SCOPEC 012354 695 25434 
SECN 1064 22174 2242 
SETUP ste bey oy 762 1779 2336 2372 


1656 1662 1698 17624 
2469 2525 2528 29938 
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( 
26-MAR-80 11:18 CROSS REFERENCE TASLE -~ USER SYMBOLS 
004552 1373 13984 
000500 700 703 706 710 16 7234 
77570 66 6 1334 54 1367 1383 1385 1435 1467 1476 1550 
1611 i723 1754 2338 1 2374 2398 2400 2446 2472 2516 

006516 1698*  1701* 17654 
006520 1699 1700* 17664 
006524 1357* 1361* 1421 1448 1463 1536 1553* 1567 1582 1671* 17684 
001054 7 768 7744 
006572 1780 17864 
006704 18184 
0070 18594 
007332 19384 
007542 19864 

7746 20 
010232 21044 
011042 2176 22804 

0520 2175 21784 

1252 707 23364 

1062 7754 2558 

1064 
001656 9414 
001744 967 
002160 984 986 988 1002 1004 10074 
002374 1024 1026 1028 1042 1044 10474 
Odes 1064 1066 1068 1082 1084 10874 
18) 1104 1106 1108 1119 1121 11244 
003222 1141 1143 1145 1159 1161 11644 
s 36 1181 1183 1185 1199 1201 12044 
1116 7904 
ears 1221 1235 1237 12404 
003744 12624 

060 12854 
001164 798 8124 
OO ene 8324 

1 8524 
001424 869 879 8844 

15 904 9144 

042 1274 12794 
007112 1861 18724 
007174 1887 18944 
0072 1911 19194 
007 1960 19704 
007530 1971 °) 
007670 2009 184 

2019 20284 

010154 2076 2 
010220 2087 

0430 2141 21514 
010474 2152 21614 
011236 2315 23254 

10704 2216 22crr 

10742 2241 22434 

1726 945 9544 
002070 969 9894 
002304 1009 10294 
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CZCDADO CD11 CARD READER DIAG MACY11 30A(1052) 26-MAR-80 11:21 PAGE 65 
CZCDAD.P11 26-MAR~-80 11:18 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 
TINT13 5 1049 10694 
TINT14 00 1089 11094 
TINT15 1 1126 11464 
TENTS 27° 1166 11864 
TINT 4 1 12224 
TINT 726 \¢? iE + 
TINT21 004016 1265 12 
TINT22 oh vd 1288 12964 
TINT 001 917 9304 
TLOPC §=©.00710 18684 1869 
TLOPG 010 21124 2113 
TLOPGA 010266 21144 2115 
TLOPGB 010516 21234 2124 
TLOPH 011064 22864 2287 
TLOPHA 01107 22884 2 
TLOPHB 0111 2297# 2298 
TOTCRD 0Q121 2394% 2409* 2467 4784 
TOTERR 012126 2395* 2445* 2470 24778 
512 7284 2501* 
TPS 000510 727# 2499 
TRAPX 001036 766 7694 
TRFLG oooese 7344 751* 765 1337* 1363 1753* 
1 004376 1364 13674 
TRTRAP 000514 $83 
TSTART 006522 ee 1360* 1376 1423 1454 1460 1465 1538 1552* 1573 1579 1584 1670* 
TYHEAD 006146 1469 1588 16784 
TYPE = 6664 763 1039 1079 1156 1196 1232 1472 1589 1592 1681 1682 
1684 1689 1694 1788 1789 1790 1791 1792 1793 1 1820 1821 1822 
1836 1837 1838 1866 1867 1915 1916 1940 1941 1942 1 1966 1967 
1988 1990 1991 2014 2015 2038 2039 2040 2042 2082 2083 
2106 2107 2110 2111 2146 2147 2148 2180 218 2182 2183 2188 289 
2190 2262 2263 2264 2265 2282 2 2285 2320 2321 2322 2451 2452 
2455 2466 2469 2509 2510 2522 2525 2528 253 2648 
oop 011350 2348 23504 
SFILLS 012447 25728 
L 012446 25714 2591 
TPB 012444 25704 2599% 
STPFLG 012450 25734 2576 
STPS 012442 25694 2597 
STYPE 012452 686 25764 
= 016046 6794 680 68 6854 6884 6914 6944 6994 7024 7054 7094 7154 7228 
7564 779 783 787 796 803 809 816 820 825 oe? 836 840 
845 849 863 867 874 877 881 894 911 925 931 935 728 
953 978 990 1018 1030 1058 1070 1098 1110 1135 1147 1175 118 
1215 1223 1252 1272 1295 1300 1304 1308 1312 1316 1320 1324 1328 
1399 1408 1415 1422 1477 1490 1500 1504 1508 1512 1516 1519 1368 
1531 1537 1597 1609 1612 1618 1629 1633 1637 1641 1644 1731 1735 
1739 1744 1747 1755 1800 1804 1808 1812 1825 1829 1833 1842 1846 
1850 1854 1876 1880 1884 1925 1896 1900 1904 1908 1917 1921 19 
1929 1933 1945 1949 1953 195 1968 1978 irae 1994 1998 2002 
2016 2026 2030 2046 2050 2052 2059 2061 sve 2069 2073 2084 sr 
2117 At 2130 2134 2138 2149 2159 163 2187 5398 2201 $08 
2210 2224 2 2234 $$i5 Se 2250 2254 2259 se09 227 $e3 2 
2 2512 2323 2342 2544 2491 2494 2500 2507 2517 33 2622 
2637 2640 264 31854 
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~80 11:1 CRO 


D 26-MAR SS REFERENCE TABLE -~ MACRO NAMES SEQ 0065 
BOUMP 74 1590 1 33 2458 
DUMP 6 1470 14 1686 1691 2453 2462 2467 2470 2523 2526 2529 
INT 1006 1046 1086 1123 1163 1203 
SDUMP res 4 1000 1040 1080 1157 1197 1233 


. ABS. 016046 000 


ERRORS DETECTED: 0 
CZ7CDAD.BIN, CZCDAD.LST/CRF /SOL/NL : TOC=CZCDAD.P11 
RUN~ 19 22 2 SECONDS 


RUN-TIME RATIO: 81/35=2.2 
CORE USED: 8K (15 PAGES) 


